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SUMMARY  PAGE 


THE  PROBLEM 

To  prepare  a  general  purpose  package  of  assembly  language 
subroutines  for  the  on-line  design,  control,  and  analysis  of  be¬ 
havioral  experiments. 

FINDINGS 

The  details  of  the  organization  and  use  of  RTLAB,  a  package 
of  relocatable  assembly  language  subroutines  for  the  Data  General 
NOVA  family  of  minicomputers ,  is  presented,  and  sufficient  pro¬ 
gram  documentation  is  provided  to  allow  users  to  modify  sub¬ 
routines,  as  needed. 

APPLICATION 

RTLAB  should  be  of  use  to  any  investigator  using  a  NOVA 
minicomputer  system  for  on-line  data  acquisition  in  discrete-trial 
behavioral  experiments . 
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1973,  and  designated  as  NavSubMedRschLab  Report  No.  748. 
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ABSTRACT 


RTLAB  is  a  package  of  relocatable  assembly-language  sub¬ 
routines  for  the  design,  control,  and  analysis  of  behavioral  experi¬ 
ments  on  the  Data  General  Corporation  NOVA  family  of  computers. 
It  was  originally  designed  for  use  in  reaction  time  research  but  is 
readily  adaptable  to  any  discrete-trial  task.  RTLAB  accepts  de¬ 
sign  parameters  from  the  experimenter  for  a  given  experiment  and 
then  produces  an  appropriately  randomized  and  counterbalanced 
set  of  trials  for  presentation  to  a  subject.  During  an  experimental 
session  RTLAB  controls  the  presentation  of  stimuli,  the  acceptance 
and  scoring  of  responses,  and  all  of  the  timing  and  input-output 
constraints  associated  with  control  and  data  acquisition.  Its  cur¬ 
rent  design  does  not  allow  for  time-sharing  among  more  than  one 
subject  station.  A  history  of  the  experiment  is  saved  for  later 
analysis  and  transfer  to  storage  media.  User  modifications  of 
any  of  the  details  of  these  operations  is  facilitated  by  the  organiza¬ 
tion  of  RTLAB  into  subroutine  modules.  The  organization  of 
RTLAB.  and  its  use  are  presented,  along  with  sufficient  documenta¬ 
tion  of  the  routines  to  allow  user  modification  where  appropriate. 
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RTLAB:  A  Reaction-time  Laboratory  for  the  Data  General 
NOVA  Minicomputer 


INTRODUCTION 

Reaction  time  is  one  of  the  most 
basic  empirical  measures  available  to 
the  experimental  psychologist,  and  has 
never  been  more  popular  than  it  is 
today.  Increased  interest  in  reaction 
time  paradigms  has  coincided  with 
growing  availability  of  inexpensive 
minicomputer  systems  that  are  ideally 
suited  for  the  on-line  control  of  such 
experiments.  The  present  report  des¬ 
cribes  the  general  organization  and  use 
of  one  such  on-line  reaction-time 
laboratory  developed  in  the  Human  Fac  - 
tors  Branch  of  the  Submarine  Medical 
Research  Laboratory  on  a  Data  General 
Corporation  NOVA  1220  minicomputer. 
This  set  of  routines,  called  RTLAB,  is 
a  complete  research  package,  allowing 
the  investigator  to  design  and  run 
experiments  and  analyze  data  in  most 
reaction  time  paradigms.  RTLAB  is 
of  course  totally  compatible  with  any  of 
the  Data  General  Corporation  family  of 
minicomputers,  requiring  only  minor 
modifications  to  mate  it  with  the  user's 
specific  configuration  of  I/O  devices. 
RTLAB  could  probably  be  adapted  to 
other  16-bit  machines  with  little  diffi¬ 
culty,  and  its  general  logic  could  be 
used  for  setting  up  a  similar  set  of 
routines  on  any  other  on-line  laboratory 
system. 


OVERVIEW 

RTLAB  does  the  following  tasks. 
Upon  entry  (assuming  it  is  being  used 
for  the  first  time)  it  queries  the  user 


for  a  number  of  design  parameters. 
These  are  saved  so  that  subsequent  runs 
of  the  same  experiment  do  not  require 
re-entering  these  parameters .  It  then 
asks  for  a  subject  number  and  some 
other  information  specific  to  the  run¬ 
ning  of  a  given  sequence  of  trials. 

Once  all  general  and  specific  parameters 
are  entered  RTLAB  sets  up  a  random¬ 
ized  and  counterbalanced  sequence  of 
trials  for  the  current  experimental 
session  and  halts,  awaiting  the  experi¬ 
menter's  command  to  start  the  experi¬ 
mental  sequence.  When  this  sequence 
is  started  RTLAB  controls  the  timing 
and  presentation  of  stimuli  from  trial 
to  trial,  records  responses  and  re¬ 
action  times,  provides  feedback  for  the 
subject,  and  stores  all  data  for  later 
analysis  and  output.  Once  the  experi¬ 
mental  sequence  is  over  the  program 
again  halts,  providing  messages  to 
the  experimenter  and  to  the  subject. 

The  experimenter  then  has  several 
options:  (a)  do  a  brief  analysis  of  the 
data  on  the  spot,  obtaining  overall 
means  and  means  broken  down  by  cor¬ 
rect-incorrect,  stimuli,  foreperiods, 
and,  if  desired,  blocks  of  trials;  (b) 
list  the  trial-by-trial  data  on  the  tele¬ 
type;  (c)  write  the  trial-by -trial  data 
on  magnetic  tape  for  off-line  analysis 
on  a  large  computer.  Option  (c),  in 
the  version  of  RTLAB  presented  here, 
was  dictated  by  our  own  hardware 
constraints  and  typical  uses,  and 
could  be  altered  by  another  user  to 
allow  data  storage  on  disk,  paper  tape, 
or  some  other  appropriate  medium. 

At  the  completion  of  the  analysis  and 
listing  options  exercised  by  the  user, 
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control  returns  to  the  beginning  of 
RTLAB.  By  entering  the  same  experi¬ 
ment  identification  number  the  user  can 
run  another  subject  in  the  same  de¬ 
sign,  with  RTLAB  automatically  pro¬ 
viding  a  new  counterbalanced,  random¬ 
ized  sequence  of  trials.  Or,  if  the 
computer  will  be  used  for  other  pur¬ 
poses  before  another  subject  will  be 
run,  the  user  can  punch  RTLAB  or  the 
parameter  addresses  (for  use  as  an 
overlay)  on  paper  tape  for  later  use. 
Finally,  by  entering  a  new  experiment 
identification  number  the  user  can 
alter  the  design  in  any  way  he  desires. 

RTLAB  is  designed  to  be  maximally 
adaptable  by  a  user.  The  program  is 
organized  into  subroutine  modules 
which  can  be  altered,  or  exchanged, 
using  the  NOVA  extended  assembler 
software  options  for  independent  assem¬ 
bly  of  relocatable  subprograms.  Thus, 
for  instance,  if  the  user  wanted  to 
change  the  magnetic  tape  routines  to 
match  his  own  configuration,  only  sub¬ 
routines  MTAPE  and  EOF  would  have 
to  be  altered. 

This  modular  organization  is  impor¬ 
tant  in  mating  RTLAB  with  the  user's 
input  and  output  devices.  The  version 
of  RTLAB  presented  as  an  example  here 
used  a  Tektronix  4010  CRT  display  with 
keyboard  for  presenting  stimuli  and  re¬ 
ceiving  the  subject's  responses.  Other 
paradigms  in  our  laboratory  use  the 
teletype  to  present  and  record,  or  go 
through  a  general  purpose  input -output 
interface  to  devices  like  slide - 
projectors,  taehistoscopes,  telegraph 
keys,  and  so  forth.  All  meshing  of 
RTLAB  with  this  variety  of  possible 
devices  is  done  via  subroutine  ALPHA 
and  its  associated  routines.  Thus,  the 


user  can  write  his  own  version  of 
ALPHA,  subject  to  constraints  dis¬ 
cussed  later  in  this  report,  to  merge 
RTLAB  with  his  own  hardware.  This 
allows  rapid  and  simple  conversion  of 
RTLAB,  whose  general  logic  is  not 
dependent  upon  hardware  considerations. 

As  presently  written,  all  subroutines 
in  RTLAB  reside  in  core  at  the  same 
time.  The  NOVA  1220  in  our  lab  has  8K 
of  core,  and  RTLAB  occupies  approxi¬ 
mately  5-6K,  depending  upon  the  com¬ 
plexity  of  ALPHA  (which  varies  with 
different  experiments).  A  user  with 
only  4K  could  store  subroutines  on 
magnetic  tape,  paper  tape,  or  disk,  and 
call  them  in  as  needed.  RTLAB  uses  a 
real-time  clock  for  all  timing.  The 
following  peripherals  are  available  in 
our  laboratory:  a  KSR  33  teletype,  a 
high  speed  paper  tape  punch-reader,  a 
Tektronix  4010  CRT,  and  a  Calma  650 
write -only  magnetic  tape  unit.  For 
purposes  of  exposition  the  examples  of 
program  details  and  use  in  this  report 
assume  this  set  of  peripherals. 

RTLAB  was  designed  as  a  general 
purpose  on-line  system  for  experiment 
design,  control,  and  simple  data 
management  for  virtually  any  possible 
reaction  time  experiment.  La  E. 
Smith's^  terms,  all  pai’adigms  he 
discusses  except  the  one-many 
stimulus -response  mapping  arrange¬ 
ment  are  possible.  (A  one-many 
paradigm  could  be  run  if  responses 
were  coded  cleverly  in  ALPHA.  See 
detailed  discussion  of  ALPHA  later. ) 
Further,  RTLAB  is  presently  designed 
for  paradigms  where  each  stimulus  and 
each  foreperiod  will  appear  equally 
often  in  a  sequence  of  trials.  Although 
RTLAB  is  designed  primarily  for 
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reaction  time  paradigms,  clearly  it  can 
be  used  without  modification  for  any 
multiple-stimulus,  single-response, 
discrete-trial  learning  or  problem¬ 
solving  task  where  correctness  of 
response  or  latency  of  response  is  a 
dependent  variable.  Examples  of  other 
tasks  particularly  well-suited  to  RTLAB 
would  include  continuous  paired-associate 
learning,  continuous  recognition  learn¬ 
ing,  concept  identification,  discrimina¬ 
tion  learning,  probability  learning,  and 
signal  detection.  Relatively  minor 
modifications  in  software  would  allow, 
the  use  of  RTLAB's  basic  logic  in 
virtually  any  discrete-trial  experi¬ 
mental  paradigm. 

The  remainder  of  this  report  will 
present  details  of  the  overall  structure 
of  RTLAB  and  its  use.  For  simplicity 
of  exposition,  we  will  describe  RTLAB 
in  the  context  of  a  particular  imple¬ 
mentation  in  our  own  laboratory, 
namely,  the  design  of  Experiment  I  re¬ 
ported  by  Olson  and  Laxar.2  But  the 
potential  user  should  keep  in  mind  the 
wide  range  of  possible  uses  for  RTLAB. 
Except  for  several  flow  charts  of  main 
subroutines  and  a  complete  assembler 
listing  of  all  subroutines  in  RTLAB  in 
the  final  section  of  this  report,  the  des¬ 
cription  of  RTLAB  will  be  from  the 
perspective  of  a  user  rather  than  that 
of  a  programmer.  The  single  im¬ 
portant  exception  is  the  discussion  of 
ALPHA,  the  routine  through  which  each 
user  must  mate  his  own  particular  ex¬ 
perimental  setup  with  RTLAB. 

DESIGN  CONSTRAINTS 


be  run  with  RTLAB.  The  program  asks 
for  the  experimenter's  specifications 
through  a  series  of  simple  queries  on 
the  teletype  (see  the  section  on  program 
use  for  the  format  of  these  queries). 

The  following  paragraphs  discuss  the 
options  available  and  describe  the  cur¬ 
rent  software  constraints  on  the  values 
of  experimental  parameters.  All 
values  discussed  are  decimal,  and  those 
whose  limits  are  not  explicitly  men¬ 
tioned  are  constrained  by  the  NOVA 
16 -bit  single  precision  arithmetic 
(maximum  value  =  65565).  It  is  es¬ 
pecially  important  that  the  user  pay 
attention  to  the  constraints  discussed 
in  paragraph  E . 

A.  Number  of  trials .  The  present 
version  allows  up  to  256  trials.  A 
user  with  adequate  core  storage  could 
change  this  limit  by  increasing  the 
arrays  addressed  at  STIM,  FORE, 
PLACE ,  and  SPACE  in  subroutine 
DESIGN  and  at  CODE  and  TIME  in  sub¬ 
routine  SCORE. 

B.  Foreperiods.  Up  to  16  different 
foreperiod  values  can  be  specified. 
Entries  are  in  milliseconds. 

C.  Stimuli.  Up  to  64  different 
stimuli  can  be  specified.  The  user 
enters  the  stimuli  as  digital  codes 
whose  meaning  is  contained  in  sub¬ 
routine  ALPHA  or  one  of  its  associated 
subroutines .  See  the  examples  in  the 
section  on  program  use. 

D.  Stimulus -response  mappings. 

The  user  specifies  one  correct 
response  code  for  each  stimulus  code 
he  enters.  Again,  this  correct  re¬ 
sponse  code  is  assumed  to  have  an 
interpretation  in  ALPHA.  Any  one-one 


The  user  has  a  number  of  options 
available  in  setting  up  experiments  to 


3 


or  many-one  configuration  of  stimuli 
and  correct  response  codes  is  accept¬ 
able. 

E.  Blocking  for  randomization. 
RTLAB  contains  routines  which,  given 
specifications  about  stimuli,  fore¬ 
periods,  and  number  of  trials,  set  up 
a  randomized,  counterbalanced  se¬ 
quence  of  trials  for  presentation  to  a 
subject.  These  routines  operate  upon 
a  block  of  n  contiguous  trials,  produc¬ 
ing  a  single  random  permutation  of  the 
n  trials.  Within  a  block  each  com¬ 
bination  of  stimulus  and  foreperiod 
must  appear  equally  often.  Thus,  the 
minimum  block  size  for  purposes  of 
randomization  is  the  product  of  the 
number  of  stimuli  and  the  number  of 
foreperiods .  The  general  expression 
for  block  size  is  given  in  (1),  where  K 
is  an  integer  greater  than  zero.  The 
relationship  between  number  of  trials 

(1)  B  =  K  (#Stim)(#FP) 

(T)  and  block  size  (B)  is  given  in  (2), 
where  N  is  an  integer  greater  than  zero. 

(2)  T  =  N  x  B 

The  constraints  in  (1)  and  (2)  are  very 
important,  for  if  they  are  violated  the 
sequence  of  trials  presented  to  the  sub¬ 
ject  will  not  have  proper  counter¬ 
balancing.  Examples  of  acceptable  and 
unacceptable  combinations  of  number  of 
trials,  block  size,  number  of  stimuli 
and  number  of  foreperiods  are  shown  in 
Table  1.  Since  the  user  is  responsible 
for  guaranteeing  that  these  constraints 
are  met,  a  short  message  is  printed  on 
the  teletype  during  the  design  query 


reminding  the  user  of  the  nature  of  the 
constraints  (see  section  on  program 
use). 

F.  Inter- trial  interval.  In  our  re¬ 
search,  this  has  referred  to  the  time 
between  the  subject's  response  and  the 
presentation  of  the  signal  that  the  com¬ 
puter  is  ready  to  present  the  next  trial. 
The  subject's  acknowledgment  of  that 
signal  initiates  the  foreperiod  of  the 
next  trial.  Figure  1  shows  this  se¬ 
quence  of  events . 

G.  Minimum  and  maximum  reaction 
times.  The  user  must  specify  limits 
on  the  range  of  acceptable  reaction 
times.  The  limits  were  incorporated 
in  the  program  to  detect  lapses  by  the 
subject  into  random  responding  or 
inattention  and  to  force  the  investigator 
to  define  the  range  of  acceptable  data 
before  rather  than  after  the  fact.  The 
range  limit  can  be  effectively  bypassed 
by  setting  them  very  small  and  very 
large. 

H.  Rerun  or  discard  errors.  The 
user  can  decide  either  to  rerun  all 
errors  or  to  run  the  fixed  sequence  of 
trials,  retaining  the  error  data  for 
analysis  or  discarding  it,  as  appro¬ 
priate.  When  errors  are  rerun,  they 
are  all  rerun  at  the  end  of  the  regular 
sequence  in  the  order  in  which  they 
were  made.  The  current  maximum  on 
rerun  trials  is  128. 


RUNNING  THE  EXPERIMENT 

The  user  has  great  flexibility  on 
how  each  trial  will  be  run.  The 
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Table  1.  Examples  of  Valid  and  Invalid  Combinations  of  Basic  Parameters 
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Invalid.  Block  size  not  integral 
in  number  of  trials . 


TIME  ^  IT  I 

FP 

LATENCY 

171  1 

EVENT 


\ _ / 


FEEDBACK  FOR 
TRIAL  N-1 


READY 


SUBJECT 


SIGNAL  STARTS 
TRIAL 


STIMULUS 

ON 


t  v _ ✓ 


RESPONSE 


FEEDBACK  FOR 
TRIAL  N 


Fig.  I.  Sequence  of  trial  events  for  a  subject-paced  reaction  time  experiment. 


definition  of  events  in  Figure  1  is 
merely  an  example  from  our  own  re¬ 
search.  We  use  a  self-paced  task, 
where  the  subject  initiates  each  trial 
after  the  ready  signal.  The  foreperiod 
is  the  time  from  the  subject’s  initiation 
of  the  trial  to  the  presentation  of  the 
stimulus.  The  intertrial  interval  be¬ 
gins  with  the  subject's  response  and 
ends  with  the  presentation  of  the  ready 
signal.  This  interval  is  constant  re¬ 
gardless  of  the  magnitude  of  the  sub¬ 
ject's  reaction  time. 

RTLAB  records  two  pieces  of  in¬ 
formation  on  each  trial,  the  subject's 
reaction  time  in  milliseconds  and  a  . 
response  code  which  indicates  whether 
the  subject  was  correct,  incorrect,  or 
violated  a  constraint  on  maximum  time 
or  minimum  time.  These  are  stored 
by  subroutine  SCORE ,  and  along  with 
the  tables  of  trial -by-trial  stimuli  and 
foreperiods  provide  a  complete  record 
of  the  experimental  events  for  later 
analysis  and  listing.  (See  details  of 
SCORE  and  the  storage  of  information 
in  later  sections. ) 


ANALYSIS  AND  LISTING  OPTIONS 

RTLAB  provides  some  low-level 
data  analysis  for  each  subject  via  sub¬ 
routine  RTANL.  It  is  assumed  that  any 
complex  analysis  and  analyses  across 
subjects  will  be  done  off-line.  Users 
may  want  to  tailor  RTANL  to  their  own 
needs . 

The  present  version  of  RTANL  pro¬ 
vides  the  analysis  shown  in  Table  2. 

The  standard  analysis  includes  mean 
reaction  times  for  various  logical 
partitions  of  the  data,  while  the  optional 
analysis  allows  for  a  further  breakdown 
into  blocks  of  contiguous  trials.  The 
size  of  these  blocks  does  not  have  to 
correspond  to  the  size  of  the  blocks 
used  in  randomizing  the  experimental 
sequence.  However,  it  is  up  to  the 
user  to  create  meaningful  block  sizes 
for  the  analysis.  Examples  of  the  out¬ 
put  of  the  analysis  routine  are  given 
in  a  later  section. 

RTLAB  also  allows  the  user  to  trans¬ 
fer  the  raw  data  to  various  storage  media. 
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Table  2.  Data  Analyses  Provided  by  RTANL  for  each  Subject 


Standard  Analysis  Includes  — 


1.  Overall  results 


2.  Analysis  by  stimuli  (if  more  than  one) 

3 .  Analysis  by  foreperiods  (if  more  than  one) 

4.  Analysis  by  stimuli  x  foreperiods  (if  both  more  than  one) 


—  Mean  reaction  time  and  frequency  counts  are  calculated  for 


each  of  these  for; 


A.  All  data 


B.  Corrects  alone 


C.  Errors  alone 


Only  if  errors  are  possible 


Optional  analysis 

All  of  the  above  repeated  for  blocks  of  trials,  where  block 
size  is  entered  at  the  time  of  analysis  (N.B.  It  is  up  to 
the  user  to  create  meaningful  block  sizes.). 


The  version  of  RTLAB  in  use  at 
NAVSUBMEDRSCHLAB  allows  a  listing 
of  the  raw  data  on  the  teletype  and  a 
transfer  of  the  raw  data  to  magnetic  tape 
for  analysis  off-line  on  a  large  computer. 


THE  USE  OF  RTLAB 

This  section  presents  a  step-by-step 
guide  to  the  use  of  RTLAB.  It  will  be 


assumed  that  the  reader  is  familiar 
with  the  general  description  of 
RTLAB 's  structure  and  constraints 
presented  in  previous  sections. 

Table  3  lists  the  subroutines  of 
RTLAB  and  their  addresses  obtained 
via  the  NOVA  relocatable  loader.  This 
gives  the  user  a  rough  idea  of  the  size 
of  the  various  routines.  Table  4  is  a 
list  of  the  interprogram  symbols  and 
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Table  3.  Program  Elements  and  Addresses  from  Relocatable  Loader 


Starting  Addresses 

Element  Name 

Normal 

Page  Zero 

RTEXP 

440 

50 

BETA 

711 

107 

RTINT 

1706 

121 

SCORE 

2054 

122 

DESIG 

3304 

130 

MTAPE 

6724 

220 

EOF 

7154 

224 

DATYP 

7235 

226 

RANDI 

7376 

234 

PERMU 

7434 

235 

INOUT 

7521 

237 

BMAN 

7774 

247 

NZMEM 

10024 

250 

CRTXT 

10054 

251 

BOX 

10107 

252 

ALS 

10504 

253 

RTANL 

10717 

257 

CARVE 

12076 

303 

PROQ 

12245 

304 

DPACC 

12302 

310 

12444 

312 
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Table  4.  Interprogram  Symbols  and  Their  Addresses  from  Relocatable  Loader 


Symbolic 

Addresses 

Octal 

Addresses 

Symbolic 

Addresses 

Octal 

Addresses 

.  Symbolic 
Addresses 

Octal 

Addresses 

ABEGI 

0013$ 

ART  UP 

000121 

MAX 

000052 

ABNDC 

000237 

ASCOR 

000122 

MCURS 

000256 

ABNOC 

000243 

ASTIM 

000132 

MIN 

000051 

ACLER 

000250 

ATIME 

000124 

MONK 

000304 

ACODE 

000123 

ATYPE 

000166 

NFP 

000060 

ACS 

000140 

AWERB 

000222 

NOVER 

000063 

ADAT 

000232 

BTXT 

000226 

NUN 

000305 

AD  CBN 

000240 

CHAR 

000253 

OLD 

000236 

ADONE 

000112 

CLEVE 

000303 

OVINC 

000126 

AEOF 

000224 

CLMSK 

000050 

PHALF 

000120 

AFORE 

000131 

CRESP 

000062 

PRES 

000111 

AFP 

000137 

CS 

000065 

PSYCH 

000257 

AGETC 

000242 

CT 

000055 

QUACC 

000310 

ALGAE 

000306 

CTDWN 

000071 

RCHAR 

000254 

AMAIN 

000102 

CTRLS 

000076 

REPC 

000127 

AMOEB 

000307 

EXP 

000061 

RESP 

000075 

AO  CBN 

000244 

FP 

000064 

RLBOX 

000252 

AOUTP 

000247 

GROUP 

000056 

RTIME 

000072 

AOVER 

000125 

IDBIN 

000246 

SEC 

000066 

APE 

000167 

IPO  RE 

000133 

SHOW 

000251 

APRMT 

000235 

IGETI 

000245 

SKTCH 

000255 

APUTC 

000241 

INTER 

000070 

SUBJ 

000057 

ARAND 

000234 

ISTIM 

000134 

TRLS 

000054 

ARAP 

000101 

ITI 

000053 

TTIME 

000073 

ARESP 

000141 

ITYP 

000233 

UQUER 

000116 

their  absolute  addresses  for  the  ex¬ 
ample  in  Table  3. 

The  complete  package  specified  in 
Table  3  would  usually  be  loaded  via  an 
absolute  binary  tape.  The  tape  would 
self-start  at  location  MAIN  (indirectly 
addressed  by  AMAIN),  printing  the 
heading  shown  at  the  top  of  Figure  2. 
As  the  teletype  message  reminds  the 
user,  all  numeric  entries  are  decimal 


and  all  times  are  in  milliseconds. 
All  numbers  are  entered  in  the 
same  fashion:  the  string  of 
decimal  digits  is  followed  by  a 
carriage  return  (the  familiar 
decimal-to-binary  routine  of  Data 
General).  The  legality  of  input 
parameters  is  not  checked.  If  a 
mistake  is  made  the  program 
must  be  restarted  at  location 
MAIN. 
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PT  EXP  PFOGFAM 

ALL  FMTPIFS  APP  DECIMAL,  ALL  T  IM  E S  IN  MSEC 


EXPEFIMFNT  CODF  =  ?  123 

ME”  CODF.  CHANGE  DESIGN?  (1)  MO  <2>  YES  2 

BLOCK  SIZF  MT’ST  KOVAL  M  <  #STIM  )  (  #  FP)  ,  WHEPF 
M  IS  AM  IMTFGEP  >  0.  BLOCK  SIZE  Ml'ST  ALSO 
EE  AN  INTFGPAL  Ot’O^IENT  OF  *  TF1ALS. 

MT'MEFP  OF  TF1ALS  =  ?  48 

BLOCK  SIZE  =  ?  A 

1 T 1  =  ?  2000 

MAX  PT  =  ?  1 500 

MIM  PT  =  ?  120 

MT'MEFP  OF  FOPEPEFIOBS  =  ?  1 

FOPEPFPI ODS  IN  MSEC. 

1  1000 


“1 


NT'MBEP  OF  ST1MVL 1  =  ?  A 

*rYPE  STIMT’LT’c  CODE  FOLLOWED  BY  COPFECT  PEEPOMFE  CODE 


1 

STIMVLt'S 

CODE 

= 

A 

PFSPOMSE 

CODE 

= 

1 

2 

stimulus 

CODF 

— 

3 

fesponse 

CODF 

— 

2 

3 

STIMPLT'S 

CODE 

- 

2 

PFSPOMSE 

CODE 

= 

2 

A 

STIMT’Lt'S 

CODF 

— 

j 

PFSPOMSE 

CODE 

= 

1 

I  PEPITJ  FPPOPS  &  NT’LLS  <1>  OF  DI  SCAPr  <  2 )  ?  2  | 

l - . - 1 

Sl'BJECT  NT'MBEP  =  ? 


Fig.  2. 


Sample  teletype  print-out  for  the  entry  of  a  new  experimental  design  in  RTLAB. 
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The  program  first  requests  an  ex-  Table  5 .  Memory  Ranges  for  Overlay 

periment  number,  as  shown  in  Figure 
2.  If  this  identification  number  is 
already  known  to  the  program ,  it  is 
assumed  that  all  parameters  were  en¬ 
tered  on  a  previous  run.  In  the  latter 
case,  all  queries  between  the  dashed 
lines  in  Figure  2  are  skipped  and  the 
program  goes  on  to  the  queries,  start¬ 
ing  with  subject  number,  that  have  to 
do  with  the  specific  run  (see  below). 

Only  the  current  experiment  number 
is  saved,  so  just  one  set  of  experi¬ 
mental  parameters  .is  present  in  mem¬ 
ory  at  a  given  time.  Thus,  values  can 
only  be  saved  between  contiguous  runs 
of  the  same  experiment  by  leaving  them 
in  the  machine,  by  punching  a  complete 
tape  of  RTLAB,  or  by  punching  an 
overlay  of  locations  containing  the  para¬ 
meter  values .  The  overlay  would  be 
read  in  after  the  complete  RTLAB  tape. 

Table  5  shows  the  memory  locations 
needed  for  such  an  overlay. 

PT  EXP  PFOGFAM 
ALL  ENTPIES  APE  DECIMAL/  ALL  TIMES  IN  MSEC. 

EXPERIMENT  CODE  =  ?  30  1 


NEW  CODE.  CHANGE  DESIGN?  (1)  NO  (2)  YES  1 


CHANGE  CODE?  (1)  NO  (2)  YES  2 


SUBJECT  NTWBEP  =  ? 

Fig.  3.  Sample  print-out  for  changing  the  experiment  code  without  changing  the  design. 


Program 

Symbolic 

Element 

Address 

RTEXP 

MIN  to  EXP 

SCORE 

REPC 

DESIGN 

FPTAB  to 

RTAB+770 

O 

If  the  experiment  number  is  a  new  one 
the  teletype  queries  proceed  as  in  Figure 
2.  The  program  acknowledges  that  the 
code  is  a  new  one,  and  double  checks  that 
the  user  does  in  fact  want  to  change  all 
the  parameters.  If  the  user  responds  "yes" 
with  a  numeric  two,  the  program  proceeds 
as  in  Figure  2.  If  the  response  is  "no", 
the  program  asks,  as  shown  in  Figure  3, 
whether  the  user  desires  to  change  the 
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experiment  code.  If  the  user  responds 
"yes”  as  in  Figure  3  the  code  entered 
replaces  the  previous  code  but  all 
previous  parameter  values  are  re¬ 
tained,  the  program  jumping  to  the  sub¬ 
ject  number  query.  If  the  user  would 
have  responded  "no"  to  the  query  about 
changing  the  code  RTLAB  would  have 
returned  to  the  first  question  and  asked 
for  the  experiment  code  again. 

In  Figure  2  once  the  program  has 
learned  that  a  set  of  design  parameters 
is  to  be  entered  a  short  reminder  about 
the  randomization  constraints  described 
in  a  previous  section  is  printed  and  a 
series  of  straightforward  queries  is 
made  about  each  of  the  design  para¬ 
meters.  Note  that  once  the  user 
specifies  the  number  of  foreperiods  the 
program  asks  for  the  value  of  each. 
Similarly,  after  the  number  of  stimuli 
has  been  specified  the  program  asks  for 
a  numeric  code  for  each  stimulus  and  a 
similar  code  for  the  correct  response 
associated  with  each  stimulus.  Recall 
that  these  numeric  codes  are  given 
meaning  in  terms  of  system  interfaces 
by  the  user-supplied  subroutine  ALPHA, 

Each  of  the  possible  sequences  of 
queries  shown  in  Figures  2  and  3  ended 
with  the  query  about  the  subject  num¬ 
ber.  Figure  4  shows  the  continuation 
of  the  user-computer  dialog  which  would 
hold  for  any  of  these  cases.  The  sub¬ 
ject  number  and  group  number  are  for 
identification.  On  the  assumption  that 
the  combination  of  subject  number  and 
experiment  number  will  be  unique, 
these  two  are  used  to  derive  the  seed 
for  the  pseudo -random  number  genera¬ 
tor  which  controls  the  randomization  of 
the  sequence  of  trials.  Thus,  pairing 
the  same  subject  number  with  the  same 


experiment  number  will  result  in  an 
identical  sequence  of  trials,  given 
constant  experimental  parameters. 

The  queries  after  group  number  are 
specific  to  a  particular  application  of 
RTLAB  and  are  part  of  subroutine 
ALPHA.  All  queries  up  to  this  point 
have  come  from  subroutine  DESIGN. 
Usually  the  user  will  need  to  know 
some  additional  details  about  the  en¬ 
coding  of  responses  at  the  subject's 
station.  In  the  example  shown  in 
Figure  4,  the  ASCII  characters  to 
serve  as  "true"  and  "false"  responses 
on  the  CRT  keyboard  are  required, 
since  this  was  counterbalanced  from 
subject  to  subject.  Application-specific 
queries  should  be  part  of  ALPHA  and 
addressed  from  RTEXP  via  the  in¬ 
struction  JSR  @  UQUER.  If  the  user 
has  no  special  queries,  he  must  at 
least  provide  for  a  return  back  to 
RTEXP  from  ALPHA. 

Once  all  parameters  have  been 
entered,  RTLAB  designs  the  complete 
set  of  trials  to  be  run  and  halts, 
printing  the  teletype  message  shown 
at  the  bottom  of  Figure  4.  As  soon 
as  the  experimenter  and  the  subject 
are  ready  to  proceed,  the  former 
presses  CONTINUE  on  the  NOVA  con¬ 
sole  and  the  experiment  would  be  run. 
The  details  of  the  running  of  the 
experiment  are  controlled  entirely 
by  the  user  in  subroutine  ALPHA.  A 
more  complete  discussion  of  the  user- 
supplied  routines  that  might  compose 
ALPHA  is  supplied  in  the  last  section 
of  this  report  on  user-modifications. 
Basically,  the  main  routine  RTEXP 
counts  down  the  number  of  trials  and 
jumps  on  each  trial  to  ALPHA  via  JSR 
©PRES.  Prior  to  returning  to  RTEXP 
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SUBJECT  NUMBER  =  ?  101 

GROUP  NUMBER  =  ?  1 

"TRUE"  CHARACTER  =  ?  / 

"FALSE"  CHARACTER  =  ?  Z 

PRESS  CONTINUE  TO  START  SESSION. 

Fig.  4.  Sample  print-out  for  entering  subject-specific  information. 


from  this  jump  the  routines  in  ALPHA 
must  take  ;eare  of  presenting  the  trial, 
monitoring  the  subject’s  performance 
on  that  trial,  and  storing  the  raw  data 
in  appropriate  tables  for  later  analysis 
or  listing.  In  a  very  real  sense,  AL¬ 
PHA  is  where  the  important  work  is 
done  on  each  trial.  After  the  last  trial 
has  been  run  RTEXP  jumps  to  ALPHA 
via  JSR@ADONE  for  a  message  or 
signal  to  the  subject  that  the  session  is 
over.  After  pressing  continue  any 
teletype  interrupt  prior  to  the  com¬ 
pletion  of  the  sequence  of  trials  aborts 
the  run.  The  experimenter  can  ter¬ 
minate  a  session,  but  it  must  be  re¬ 
membered  that  it  will  only  be  possible 
to  restart  the  session  at  the  beginning. 

An  example  of  the  experiment  en¬ 
tered  in  Figure  2  is  now  presented. 

The  subject  starts  each  trial  by  push¬ 
ing  any  key  on  the  CRT  keyboard.  One 
second  later  a  display  like  that  shown 


in  Figure  5  would  flash  on  the  screen, 
and  the  subject  would  decide  as  quick¬ 
ly  as  possible  whether  the  word  in  the 
center  correctly  named  the  side  of  the 
square  on  which  the  diamond  appeared. 
As  soon  as  the  subject  responded  the 
display  would  disappear  and  informa¬ 
tion  like  that  shown  in  Table  6  would 
appear  as  feedback.  This  feedback 
would  remain  on  for  two  seconds  (the 
intertrial  interval)  and  as  soon  as  the 
feedback  disappeared  the  subject 
could  start  the  next  trial. 

When  control  returns  to  RTEXP 
after  the  JSR@  ADONE  to  ALPHA, 
the  message  shown  at  the  top  of  Fig¬ 
ure  6  is  printed  on  the  teletype  and 
the  program  halts .  The  analysis 
routines  are  initiated  by  pressing 
CONTINUE  on  the  console.  A  brief 
series  of  queries  are  made  as  shown 
in  Figure  6 .  The  output  resulting 
from  these  choices  is  also  shown  in 
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Fig.  5.  Sample  CRT  display  ( based  on  Olson  and  Laxar,  1973). 


Table  6.  Feedback  Messages  to  Subject  from  ALPHA  via  CRT 


Event 

Message 

Correct  response 

TRUE 

TIME  =  748  MILLISECONDS 

Incorrect  response 

TRUE 

ERROR 

TIME  =  1039  MILLISECONDS 

Response  not  defined  in  program 

ILLEGAL  RESPONSE 

ERROR 

TIME  «  683  MILLISECONDS 

RT  less  than  minimum  allowed 

FALSE 

TOO  FAST 

RT  greater  than  maximum  allowed 

TOO  SLOW 

Trial  sequence  over 

END  OF  SESSION.  THANK  YOU. 

PPESS  CONTIMVE  FOP  ANALYSIS 


DATA  ANALYSIS  FOP  PT  EXPEPIMENT  MO.  123 
SUBJECT  MO.  IP  1 

ANALYSIS  EY  BLOCKS?  (1)  YFS  <2>  NO  2 


TYPE  OPT  DATA?  < 1 >NO  OP  C 2)YES  2 


0"EFALL  ANALYSIS 

O^EPALL  PT  N 

500.7708  48 


COPPECT  PT 
501. 1627 


M 

43 


EPPOP  PT  M 

497. 4000  5 


ANALYSI  S 

BY  STIMTiLI 

STIM 

OVEPALL  PT 

n' 

COPPECT  P''' 

M 

EPPOP  FT 

1 

369. 5000 

12 

369. 5000 

12 

0. 0000 

2 

543. 7500 

12 

543. 7500 

12 

0.0000 

3 

576. 7500 

12 

599.4545 

1  1 

327. oooe 

4 

513. 0833 

12 

499. 6250 

8 

540.0000 

M 


! 

4 


TPIAL 

STIMVL VS 

F  P 

P  T 

CODE 

1 

2 

1000 

373 

1 

2 

3 

1000 

570 

1 

3 

4 

1000 

50  1 

1 

4 

1 

100  0 

290 

1 

5 

4 

1000 

507 

1 

6 

1 

1000 

329 

1 

7 

2 

ieoe 

524 

1 

8 

3 

1000 

522 

1 

9 

3 

1000 

839 

1 

10 

1 

1000 

48  1 

1 

1  1 

2 

1  000 

639 

1 

12 

4 

1000 

482 

1 

13 

3 

1000 

49  1 

1 

14 

2 

i0eo 

502 

1 

15 

1 

1000 

332 

1 

16 

4 

1000 

4  19 

1 

lrig.  (.  Sample  printout  for  on-line  analysis  following  the  completion  of  a  single  subject's  session. 

(Part  I  of  2  parts) 
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S  Si 


17 

4 

1000 

532 

18 

1 

1000 

303 

19 

2 

1000 

553 

20 

3 

1  000 

8  08 

21 

1 

1000 

4  09 

22 

2 

1  000 

632 

23 

3 

1000 

594 

24 

4 

1  000 

421 

25 

4 

1  000 

632 

26 

1 

1000 

48  5 

27 

2 

1000 

49  1 

28 

3 

1  000 

611 

29 

3 

1000 

327 

30 

4 

1000 

443 

31 

1 

1  000 

27  1 

32 

2 

1000 

5  19 

33 

4 

1  000 

655 

34 

2 

1000 

562 

35 

1 

1000 

289 

36 

3 

1000 

609 

37 

1 

1000 

382 

38 

4 

1000 

480 

39 

2 

1000 

5  59 

40 

3 

1000 

402 

41 

1 

1  000 

4  69 

42 

3 

1000 

533 

43 

4 

1000 

568 

44 

2 

1000 

654 

45 

2 

1000 

5  17 

46 

1 

1000 

344 

47 

3 

1000 

565 

48 

4 

1000 

5  17 

1 

1 

1 

1 

1 

1 

1 

1 

2 

1 

1 

1 

2 

2 


2 


2 


mount  and  heady  tape,  press  continue. 

Fig,  6.  Sample  print-out  for  on-line  analysis  following  the  completion  of  a  single  subject ' s  session. 

(Part  2  of  2  parts) 
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Figure  6,  and  upon  completion  of  the 
output  the  program  again  halts  with  a 
message  about  the  magnetic  tape, 
shown  at  the  bottom  of  Figure  6.  If 
one  had  asked  for  the  analysis  by 
blocks  the  analysis  would  have  been 
repeated  for  each  block.  If  one  did 
not  ask  for  a  listing  the  entire  listing 
would  be  suppressed.  If  errors  had 
been  rerun,  no  breakdown  would  be 
given  for  corrects  and  errors,  but  the 
number  of  trials  rerun  would  be  shown 
at  the  beginning  of  the  analysis.  One 
can  suppress  all  the  output  by  going  to  1 
location  MAIN  when  the  program  halts 
at  the  end  of  the  session. 

The  magnetic  tape  output  is  straight¬ 
forward.  It  can  be  bypassed  by  man¬ 
ually  returning  control  to  the  begin¬ 
ning  of  RTLAB  via  the  console 
switches.  If  a  tape  is  written  control 
automatically  returns  to  the  beginning 
of  RTLAB  after  the  end  of  file  is 
written.  Appendix  A  contains  a  sch- 
matic  of  our  tape  format. 

FLOW  CHARTS  AND  SUBROUTINE 
LISTING 

Appendix  B  contains  a  complete 
table  of  subroutines  and  their  primary 
functions  for  the  sample  experiment 
described  in  this  report.  Appendix  C 
has  flow-charts  for  the  most  import¬ 
ant  subroutines,  and  can  be  used  as  a 
guide  to  the  program  listings.  Appen¬ 
dix  D  contains  these  listings  for  all 
subroutines  used  in  the  sample  ex¬ 
periment. 

SUMMARY  OF  USER  MODIFICATIONS 

Required  modifications .  For  most 
applications  of  RTLAB  the  user  must 


write  a  subroutine  ALPHA  and  any  sub¬ 
routines  required  by  ALPHA.  RTLAB 
is  designed  so  that  this  should  be  the 
only  detailed  programming  required  by 
the  user.  If  a  user  finds  he  has  to  ex¬ 
tensively  modify  a  significant  number 
of  other  routines  in  RTLAB  as  well, 
then  there  may  be  little  advantage  to 
RTLAB  over  the  writing  of  the  experi¬ 
mental  package  from  scratch.  But  the 
user  must  be  prepared  to  write  at  least 
this  one  routine. 

The  main  program  RTEXP  calls 
routines  in  ALPHA  for  three  different 
purposes.  Thus,  ALPHA  must  include 
indirect  entry  points  for  the  following 
calls  from  RTEXP:  (a)  UQUER  for  any 
user-specific  design  queries;  (b)  PRES 
for  the  presentation  of  each  trial;  and 
(c)  ADONE  for  the  termination  of  the 
experiment,  (a)  and  (c)  are  relatively 
straightforward,  and  depend  entirely 
upon  the  desires  or  needs  of  the  user. 

If  either  or  both  of  these  functions  are 
not  needed,  the  user  can  effectively 
bypass  the  calls  by  inserting  a  JMP 
0 , 3  at  the  appropriate  address  in 
ALPHA. 

However,  function  (b)  is  central  to 
the  use  of  RTLAB  and  thus  the  require¬ 
ments  for  a  jump  via  PRES  to  ALPHA 
and  the  necessary  cbmmunications  with 
other  subprograms  in  RTLAB  must  be 
spelled  out  in  some  detail.  The  jump 
via  PRES  must  take  care  of  all  timing 
functions,  must  present  stimuli  and 
accept  responses,  must  encode  the 
responses  and  contrast  these  with 
stored  tables  of  appropriate  responses, 
and  must  store  response  information 
and  latencies  via  subroutine  SCORE. 

The  stimulus  code,  correct  response 
code,  and  foreperiod  value  for  each 
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trial  are  passed  by  RTEXP  to  ALPHA 
via  locations  CS,  CRESP,  and  FP. 
Those  locations  are  defined  in  RTEXP 
and  must  be  declared  as  displacement 
externals  in  ALPHA.  Subroutine 
ALPHA  must  translate  the  stimulus 
code  into  some  actual  stimulus  for 
presentation.  For  instance,  the  codes 
1-4  shown  in  Figure  2  are  used  by  the 
ALPHA  in  Appendix  D  to  present  one 
of  four  stimulus  displays,  like  the 
sample  shown  in  Figure  5 ,  on  the  CRT 
screen.  See  the  details  in  Appendix  D, 
especially  subroutine  BOX,  which  is 
called  by  ALPHA  for  drawing  the  dis¬ 
plays  on  the  screen.  Similarly,  the 
ASCII  code  received  from  the  CRT 
keyboard  when  the  subject  responds 
is  translated  into  the  appropriate 
response  code  for  transmission  to 
SCORE.  In  our  example,  the  encoding 
of  "true"  and  "false"  which  had  been 
entered  prior  to  the  run  (see  Figure  4) 
is  stored  in  locations  TRUE  and  FALSE 
in  ALPHA.  The  keyboard  entry  from 
the  subject's  response  is  first  com¬ 
pared  with  these  to  recover  the  "true" 
or  "false"  response  and  then  com¬ 
pared  with  the  code  in  CRESP  for 
classification  as  correct  or  incorrect. 

The  data  on  each  trial  are  stored 
by  means  of  JSR  «  AS  COR  to  subroutine 
SCORE.  The  latency  is  passed  via  the 
address  TTIME  and  the  scored  re¬ 
sponse  code  is  passed  via  RESP.  Both 
are  defined  in  RTEXP  and  declared  as 
displacement  externals  in  ALPHA. 

The  scoring  of  the  response  is  done  in 
ALPHA,  with  the  following  code  passed 
to  SCORE:  1  =  correct,  2  =  error, 

3  =  too  fast,  too  slow.  Subroutine 
SCORE  obtains  the  trial  count,  CTRLS, 
from  RTEXP.  SCORE  keeps  track  of 
which  trials  have  to  be  rerun,  and 


RTEXP  contains  the  necessary  pro¬ 
gramming  to  rerun  these  trials  when 
the  rerun  option  is  used. 

All  timing  is  coordinated  in  ALPHA. 
The  real-time  clock  is  set  initially  by 
RTEXP  to  interrupt  the  program  every 
millisecond  when  it  is  enabled,  and  the 
interrupt  service  routine  (RTINT)  in¬ 
crements  various  comiters  on  each  in¬ 
terrupt.  These  counters  are  then 
cleared  and  sampled  by  ALPHA  to  time 
out  pre-set  intervals  like  the  foreperiod 
or  the  intertrial  interval  and  to  meas¬ 
ure  the  subject's  latency.  Any  of  the 
counters  defined  in  RTINT,  RTIME, 
CTDWN,  and  INTER  may  be  declared 
displacement  externals  in  ALPHA. 

The  programming  for  this  is  quite 
straightforward,  and  the  examples 
in  ALPHA  and  RTINT  in  Appendix  D 
can  be  examined  for  more  details. 

In  order  to  facilitate  the  user's  com¬ 
prehension  of  the  interprogram  rela¬ 
tionships  in  RTLAB,  Table  7  presents 
the  associations  among  subprograms  as 
indexed  by  .  EXTD  statements  in  the  re¬ 
locatable  source  programs.  This  table 
should  help  the  user  trace  the  commun¬ 
ications  between  ALPHA  and  the  other 
subroutines  in  Appendix  D  as  he  pre¬ 
pares  his  own  version  of  ALPHA. 

One  other  important  user  modifica¬ 
tion  needs  to  be  mentioned  here.  Since 
the  Calma  650  write-only  tape  unit  in 
our  laboratory  is  not  common,  most 
users  will  want  to  write  their  own 
magnetic  tape  routines  (MTAPE  and 
EOF  in  our  programs)  or  substitute 
paper  tape,  disk  storage,  or  other 
mass  storage  routines  as  appropriate. 
Table  8  provides  the  information  re¬ 
quired  to  make  this  substitution  and 
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Table  7 .  Inter  Program  Communication  in  RTLAB 
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Table  8.  Organization  of  Information  in  RTLAB 


Information 

cl 

Symbolic  location 

cl 

Indirect  Address 
(Symbolic  -1) 

Program 

Element 

Experiment  Identification  No . 

EXP  (Z) 

RTEXP 

Subject  No. 

SUBJ  (Z) 

RTEXP 

Group  No. 

GROUP  (Z) 

•RTEXP 

Number  of  Trials 

TRLS  (Z) 

RTEXP 

Number  of  Stimuli 

CT  (Z) 

RTEXP 

Number  of  Foreperiods 

NFP  (Z) 

RTEXP 

Rerun  Code  (1  =  errors  rerun, 

REPC  (Z) 

SCORE 

2  =  not  rerun) 

Table  of  Stimuli 

CSTAB  (N) 

ACS  (Z) 

DESIGN 

Table  of  Correct  Responses 

RTAB  (N) 

ARESP  (Z) 

DESIGN 

Table  of  Foreperiods 

FPTAB  (N) 

AFP  (Z) 

DESIGN 

Table  of  Stimuli  Presented  in 

STIM  (N) 

ISTIM  (Z) 

DESIGN 

!  Session13 

Table  of  Foreperiods  Presente 

d  FORE  (N) 

I PORE  (Z) 

DESIGN 

in  Session13 

Table  of  Trial  Outcomes13 

CODE  (N) 

A  CODE  (Z) 

SCORE 

Table  of  Reaction  times13 

TIME  (N) 

ATIME  (Z) 

SCORE 

Table  of  Rerun  Trials0 

OVER  (N) 

AOVER  (Z) 

SCORE 

(Z)=zero  page  relocatable,  (N)  =  normal  relocatable 

k  Stored  in  a  top-to -bottom  fashion,  such  that  within  the  table  the  first  location 
(e.g. ,  STIM)  contains  the  data  for  trial  n,  while  the  nth  location  (e.g. , 
STIM+(n-l))  contains  it  for  trial  1. 

Stored  in  the  order  they  were  rerun. 


additional  data  found  useful  in  creation 
of  alternate  versions  of  ALPHA.  As 
noted  previously.  Appendix  A  shows  our 
tape  format  as  a  sample  data  coding. 

Optional  modifications.  The  overall 
organization  of  RTLAB  as  independently 
assembled  relocatable  program  modules 
should  make  it  relatively  easy  for  a 
user  to  modify  any  aspects  of  RTLAB 
that  do  not  conform  to  his  needs.  Each 
user  will  have  to  weigh  the  utility  of 
modifying  our  programs  versus  writ¬ 
ing  them  from  scratch.  For  instance, 
RTANL  is  an  obvious  candidate  for 
modification,  but  our  version  is  quite 
long  and  complex  and  most  user's  may 
find  it  easiest  to  use  it  as  is.  But 
should  the  user  want  to  change  or  re¬ 
place  any  of  the  routines  the  informa¬ 
tion  in  Tables  7  and  8  and  in  the  Appen¬ 
dices  should  be  quite  helpful. 

FURTHER  INFORMATION 

Copies  of  RTLAB  relocatable  source 
program  tapes  can  be  obtained  from 
the  Data  General  User's  Group  by 
writing  to: 

Executive  Secretary 
Data  General  Users  Group 
Data  General  Corporation 
Route  9 

Southboro,  Massachusetts  01772 

Further  information  about  RTLAB  can 
be  obtained  by  writing  to: 

Dr.  Gary  M.  Olson 
Department  of  Psychology 
Michigan  State  University 
East  Lansing,  Michigan  48823 

or 


Dr.  George  Moeller 
Human  Factors  Branch 
Submarine  Medical  Research  Labor¬ 
atory 

Submarine  Base  New  London 
Groton,  Connecticut  06340 
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Appendix  A 


Magnetic  Tape  Format 


In  our  uses  of  RTLAB  we  write  the  ASCII  characters.  A  separate  file 

raw  data  for  each  subject  on  magnetic  is  written  for  each  subject-session, 

tape  for  off-line  analysis.  All  data  are  with  five  records  in  each  file  organ- 
entered  as  decimal  numbers  in  ized  as  follows* 


Record 

Word(s) 

Contents 

1 

1 

Experiment  Number 

/ 

2 

Subject  Number 

3 

Group  Number 

4 

Number  of  Trials 

5 

Number  of  Stimuli 

6 

Number  of  Foreperiods 

7 

Error  Code  (1  =  all  errors  rerun, 
2  =  errors  not  rerun) 

8-31 

Dummy  zeroes 

2 

1-#  trials 

Stimuli  in  order  presented 

3 

1-#  trials 

Foreperiods  in  order  presented 

4 

1-#  trials 

Response  codes 

5 

1-#  trials 

Reaction  times  in  milliseconds 

Appendix  B 


Subroutines  of  RTEXP  and  their  functions  (Arranged  alphabetically) 


Subroutine  Entry  Point 
Name  (all  indirect) 


Function 


Remarks 


ALPHA 


ALS 


BMAN 

CARVE 


UQUER 


Query  experimenter  on  teletype 
for  parameters  needed  in 
ALPHA  or  its  subroutines. 


User  supplied  (JMP 
3  as  no-op  if  no 
queries) 


PRES  Present  a  trial,  handle  re-  User  supplied 

sponse  and  reaction  time  so 
that  data  are  stored  via 
SCORE,  present  feedback 
(if  any) . 


ADONE 


Inform  subject  that  session  is 
over. 


User  supplied  (JMP 
3  if  not  used) 


(ARTUP)  Contains  address  of  user's 
interrupt  service  routine  for 
RTC,  TTY,  CRT,  or  any 
other  devices  requesting 
interrupts  during  use  of 
RTLAB. 


User  supplied.  In 
our  applications 
this  is  in  a  sub¬ 
routine  of  ALPHA. 


Tektronix  Corporation 
PLOT-10  package  of  CRT 
subroutines  for  Nova  mini¬ 
computers. 

AOUTP  Prints  text  messages  on  tele¬ 
type. 

CLEVE  Called  by  RTANL  to  divide  a  Quotient  is  printed 
double  precision  value  by  a  but  not  saved, 

single  precision  one  and  print 
the  results  on  the  teletype  in 
decimal  notation. 
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Appendix  B  cont. 


Subroutine  Entry  Point 

Name  (all  indirect)  Function 


CRTXT 

SHOW 

Writes  text  messages  on  CRT. 

DATYP 

.  ADAT 

Lists  raw.  data  by  trials  in  tele¬ 
type. 

DESIGN 

ABEGIN 

Queries  experimenter  for  all  the 
basic  parameters  for  designing 
and  running  a  reaction  time  ex- 
periment.  If  it  recognizes  the 
experiment  identification  num¬ 
ber  it  assumes  it  already  knows 
all  the  basic  parameters.  Upon 
return  it  has  constructed  tables 
of  appropriately  randomized 
stimulus  codes  and  foreperiods 
for  the  sequence  of  trials . 

AFORE 

Returns  foreperiod  value  for 
current  trial  to  location  FP  in 
RTEXP. 

ASTIM 

Returns  stimulus  code  for  cur¬ 
rent  trial  to  location  CS  in 
RTEXP. 

DPACC 

QUACC 

Called  by  RTANL  to  selectively 
accumulate  data  in  a  double  pre¬ 
cision  register. 

EOF 

AEOF 

Called  by  MTAPE  to  write  end- 
of-file  marks. 

INOUT 

General  teletype  subroutine 
package. 

APUTC 

Transmit  ASCII  character  to 
teletype  from  CPU. 

Remarks 


All  based  on  Data 
General  routines. 
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Appendix  B  cont. 


Subroutine 

Name 

Entry  Point 
(all  indirect) 

Function 

Remarks 

INOUT 

cont. 

AGETC 

Transmit  ASCII  character  to 
CPU  from  teletype. 

IGETI 

Entry  into  GETC  if  via  TTY 
interrupt. 

ABNOC 

Binary  to  octal  conversion 
(CPU  ->  TTY). 

AO  CBN 

Octal  to  binary.  (TTY 

CPU). 

ABNDC 

Binary  to  decimal. 

Suppresses  leading 
zeroes  but  does 
right  justify. 

ADCBN 

Decimal  to  binary. 

MTAPE 

AWERB 

Write  raw  data  via  Calma 
unit  on  magnetic  tape. 

NZMEM 

ACLER 

Clears  adjacent  memory  lo¬ 
cations. 

PERMUTE 

APRMT 

Produces  one  random  permu¬ 
tation  of  n  adjacent  memory 
locations.  Called  by  DESIGN 
to  randomize  sequence  of 
trials. 

PROQ 

MONK 

AMOEB 

NUN 

ALGAE 

Data  General  package  for  un¬ 
signed  multiply-divide . 
Equivalents  in  Data  General 
notation  are: 

.  MPYU 
.DIVU 
.MPYA 
.DIVI 
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Subroutine  Entry  Point 
Name  (all  indirect)  Function 


Remarks 


RANDI 

ARAND 

Data  General  random  number 
generator.  Called  by  PER¬ 
MUTE. 

Seed  is  controlled 
originally  by  DE¬ 
SIGN  and  then  by 
successive  calls 
to  RANDI. 

RTANL 

PSYCH 

Provides  simple  data  analysis. 

Analysis  is  not 
stored,  but  is 
printed  directly 
on  teletype. 

RTINT 

ARTUP 

Interrupt  service  routine 
for  illustrative  application. 

SCORE 

ASCORE 

Scores  and  stores  responses 
and  reaction  times  on  each 
trial. 

ACODE 

Contains  address-1  of  table  of 
responses,  scored  as: 

1  =  correct 

2  _  error 

3  =  min,  max  time 

ATIME 

Contains  address-1  of  table  of 
reaction  times. 

AOVER 

Contains  address-1  of  table  of 
trial  numbers  to  be  run  over. 
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Flow-Charts  of  Primary  Routines  of  RTLAB 
This  appendix  contains  flow-charts  of  the  following  routines: 


Figure 

Routine 

Page 

C-l 

RTEXP 

C-2 

C-2 

DESIGN 

C-6 

C-3 

ALPHA 

C-8 

C-4 

PERMUTE 

C-12 

C-l 


Fig.  C  l.  Flow-chart  for  main  routine  RTEXP.  (Part  1  of  4  parts) 


C-2 


GET  TRIAL 

J  SR  @AFORE 

PARAMETERS 

JSR  @ASTIM 

DESIGN 

N 

f 

PRESENT 

J  SR  0APRES 

ALPHA 

TRIAL 

Fig.  C-l.  Flow-chart  for  main  routine  RTKXP.  (Part  2  of  4  parts) 
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^ PROGRAM  HALTS/ 
PRESS 
CONTINUE 
FOR 

ANALYSIS 


<D 


\ 

' 

ANALY2E 

DATA 

JSRgPSYCH 

RTANL 

\ 

f 

LIST  OATA 

ON 

TELETYPE 

JSR  @AOAT 

DATYP 

_ i 

< 

l PROGRAM  HALTS/ 
PRESS  CONTINUE/ 
TO  WRITE 
ON  MAGNETIC 
TAPE 


' 

L 

WRITE  DATA 

ON 

MAGNETIC  TAPE 

- - - 

JSR  SawERS 

MTAPE 

INDIVIDUAL 

SUBJECT 

ANALYSIS 


LISTING 


Fig.  C-l.  Flow-chart  for  main  routine  RTEXP.  (Part  3  of  4  parts) 
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Fig.  C-l.  Flow-chart  for  main  routine  RTEXP.  (Part  4  of  4  parts) 


C-5 


JSR  0ABEGIN 


Fig.  C-2.  Floiv-charl  for  subroutine  DESIGN.  (Part  I  of  2  parts) 
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.  C-2.  Flow-chart  for  subroutine  DESIGN.  (Part  2  of  2  parts ) 
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Fig.  C-3.  Flow-chart  for  subroutine  ALPHA  for  the  experiment  discussed  in  the  text.  (Part  3  of  4  parts ) 


C-10 
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Fig.  C-3.  Flow-chart  for  subroutine  ALPHA  for  the  experiment  discussed  in  the  text.  (Part  4  of  4  parts) 
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Appendix  D 
Program  Listings 


All  program  components  of  RTLAB  are  listed  in  this  appendix  as  output 
from  the  NOVA  extended  assembler.  All  are  in  relocatable  form.  The  name 
or  names  of  the  programmers )  appears  in  the  heading  of  each  listing,  along 
with  general  information  on  the  use  of  the  routine.  Dates  and  parenthesized 
letters  identify  the  edition  of  the  subprogram.  The  listings  are  in  the 
following  order: 


Subroutine 

Page 

Subroutine 

RTEXP 

D-2 

INOUT 

D-47 

ALPHA 

D-7 

BMAN 

D-52 

RTINT 

D-16 

NZMEM 

D-53 

SCORE 

D-19 

CRTXT 

D-54 

DESIGN 

D-21 

BOX 

D-55 

MTAPE 

D-34 

SALS 

D-60 

EOF 

D-38 

RTANL 

D-63 

DATYP 

D-40 

CARVE 

D-7  5 

RANDI 

D-43 

PROQ 

D-78 

PERMUTE 

D-45 

DPACC 

D-80 

D-l 


;PTEXP  --  MAIM  PPOGRAM  FOP  REACTION  TIME 
,*  GENERAL  PURPOSE:  USER  SUPPLIES 

J  ROUTINES  TO  INTERFACE  THIS  PROGRAM 

;  AND  ITS  PRIMARY  SUBROUTINES  VITH 

J  PARTICULAR  DISPLAY  AND  RESPONSE  DEVICES 


J 

J 


FOLLOWING  SUBROUTINES  (WITH  ENTRY  POINTS)  ARE 
REQUIRED: 

I.  DESIGN  (ABEGIN,  AFORE,  ASTIM)  --  ENTER 

PARAMETER  OF  EXPERIMENT,  SET  UP  RUN,. 
SUPPLY  FOREPEPIOD,  STIMULUS  AND 
RESPONSE  CODES  DURING  PUN 
**2.  ALPHA  (  PP.ES,  ARTUP,  ADONE,  UQUEE,  PHALF)  -- 
ROUTINE  TO  INTERFACE  DISPLAY  AND 
RESPONSE  DEVICES  WITH  PTEXP.  MUST 
INCLUDE  INTERRUPT  SERVICE  ROUTINES. 
CALL  VIA  ADONE  PRESENTS  SIGNAL  TO 
SUBJECT  THAT  EXPERIMENT  IS  OVER,  VIA 
PHALF  THAT  EXPERIMENT  IS  HALF  OVER. 
CALL  VIA  VQUEP  ALLOWS  THE  ENTRY  OF 
USER- SPECIFIC  PARAMETERS  DUPING  THE 
DESIGN  OF  THE  EXPERIMENT.  THE  CALLS 
ADONE,  PHALF,  AND  UQUER  CAN,  OF  COURSE, 
BE  NO-OPS  IN  THE  USER’S  PPOGRAM. 

3.  NZMEM  (ACLER)  --  CLEAPS  MEMORY 

LOCATIONS 

4.  BM AN  (AOUTP)  --  PRINTS  MESSAGES 

5.  DATYP  <  ADAT)  --  PRINTS  DATA  ON  TTY 
+  +  6.  MT APE  (AWEPB)  --  WRITES  DATA 

ON  MAGNETIC  TAPE 

+  +7.  EOF  (AEOF)  --  CALLED  BY  MTAPE  TO 
WRITE  END  OF  FILES 

8.  FTANL  (PSYCH)  --  DOES  SIMPLE  DATA  ANALYSIS 

9.  DPACC  (QUACC)  --  CALLED  BY  RTANL  TO 

ACCUMULATE  DATA 

10.  CARVE  (CLEVE)  --  CALLED  BY  RTANL  TO  DIVIDE 

AND  PRINT  QUOTIENTS 

II.  PRO  Q  (MONK,  AM0EB,NUN,  ALGAE)  --  UNSIGNED 

DIVIDE,  MULTIPLY,  CALLED  BY  CARVE 

12.  IMOUT  ( APUTC, AGETC, ABNOC, AOCBN,  ABNDC, 

ADCBN  ,  I  GET  I ,  I  DBIN  )  --  GENERAL 
TTY  SUBROUTINE  PACKAGE 

13.  SCORE  (  ASCOR,  ACODE,  ATIME,  AOVEP)  -- 

SCOPES  AND  STOPES  RESPONSES  AND 
PEACTION  TIMES 

14.  PERMUTE  ( APRMT )  --  PRODUCES  RANDOM 

PERMUTATIONS  OF  M EMORY  LOCATIONS, 
CALLED  BY  DESIGN 

15.  RAN DI  ( ARAN D)  —  RANDOM  MUMEEP  GENERATOR 

CALLED  BY  PERMUTE 
**  USER  SUPPLIED 

+  +  USER  MAY  NEED  TO  ADAPT  FOR  OWN  TAPE  IN  IT 


,’RTEXP  BEGINS  EY  QUERYING  USER  ABOUT  THE 
,’  DESIGN  OF  THE  EXPERIMENT.  THEN  IT  SETS 

;  UP  A  PIN  FOP  AN  INDIVIDUAL  SUBJECT 

I  AND  HALTS,  ALLOWING  EXPEPIMENTEP  TO  STAPT 

,’  THE  EXPERIMENT  BY  PRESSING  ’’CONTINUE" 

,*  ON  THE  CONSOLE.  WHEN  SESSION  IS  OVER, 

J  A  MESSAGE  IS  GIVEN  TO  SUBJECT 


D-2 


AND  FTEXP  HALTS.  THE  DATA 
LISTING  AND  ANALYSIS  ROUTINES  CAN 
THEN  BE  STARTED  WITH  "CONTINUE” 


G.O.  MOELLEP  &  G.M.  OLSON 
6  APFIL  1973  (A) 


102513 

.  DALC 

.  TITL  PTEXP 

. EXTD  APT UP, ACLEP,  ABEGIM, AFOPE, ASTIM, 

.  EXTD  AOUTP,  AEN  DC,  APUTC,  ASCOP,  PPES,  ADONE 

.  ENT  AMAIN,  APAP,  INTER,  CTDVN,  PTIME 

•  ENT  CLM  SK,  PESP,  TTIME,  SEC 

.  ENT  EXP,  SUBJ ,  GROUP,  TRLS,  ITI, MAX, MIN 
.  ENT  FP,  CT,  CS,  CTPL S,NFP,  CPESP,NOVEP 
. EXTD  AVEPB, REPC, OVINC, AOVEP, PSYCH, AGETC 
.  EXTD  APE,  ATYPE,  ADAT,  UGUEP 

SGT=  SUEL  #  0,0,  SNC  J  SGT  A,  B.  A.GT.E 

102113 

.  DALC 

SGE=  ADCL  #  0,0, 

SNC  ,‘SGE  A,  E.  A.GE.E 

102512 

.  DALC 

SL  E=  SUBL  #  0,0, 

SZC  ISLE  A,  E.  A.LE.B 

1021  12 

.  DALC 

SLT=  ADCL  #  0,0, 

SZC  I  SL T  A,  E.  A.LT.E 

00000-177773 

CLM  SK : 

.  ZFEL 

177773 

/PTC  INTERPRET  ONLY 

00001-000000 

MIN  J 

0 

ILE  ON  PT 

00002-000000 

MAX; 

0 

;ub  ON  PT 

00003-000000 

ITI  ; 

0 

> INTEP-TPI AL  INTERVAL 

00004- 000000 

TRLS: 

0 

J  #  TRIALS 

00005-000000 

CT: 

0 

I#  STIMULI 

00006-000000 

GROUP; 

0 

>  GPOUP  # 

00007-000000 

SUBJ : 

0 

>  SUBJ  # 

000 10-000000 

NFP; 

0 

,*  #  FP 

000 1 1- 000000 

EXP; 

0 

I  EXP  ID 

00012-000000 

CPESP; 

0 

ICOPRECT  RESPONSE  CODE 

00013-000000 

MOVEP: 

0 

;  CUMULATIVE  RERUN  TPIALS 

00014-000000 

FP: 

0 

,’  FOPEPERI  OD 

000 1 5-000000 

CSs 

0 

I  STIMULUS  CODE 

00016-000000 

SEC; 

0 

00017-000000 

MSEC; 

0 

00020-000000 

INTER; 

0 

I  ELAPSED  ITI 

0002 1- 000000 

CTDVN: 

0 

i  ELAPSED  FP 

00022-000000 

RTIME; 

0 

I  ELAPSED  PT 

00023-000000 

TTIME: 

0 

00024-000000 

TEMP: 

0 

00025-000000 

PESP: 

0 

IFESPONSE 

00026-000000 

CTRLS: 

0 

J TRIAL  COUNTEP 

00027-000003 

CLKFO: 

3 

00030-000006 
0003 1-000 136  * 

ARAP: 

6 

RAPUP 

00032-000000’ 

AMAIN: 

MAIN 

00033-000002’ 

AHOP: 

MAIN  +  2 

000003 

BLOC  1 : 

.ELK  3 

000050 

.NPEL 
CPI  =  50 

000051 

CPO=  5  1 

> 

00000 ’ 060277  MAIN: 

INTDS 

00001 ’0602  14 

NIOC 

PTC 

00002*020001$ 

L  DA 

0, APT UP  ;iSF  ADDPESS  TO  LOC  1 

00003*040001 

STA 

0,  1 

D-3 


00004 

•006002$ 

JSR@ 

ACL  ER 

} SET  (SEC)  TO  (SEC  +  8)  =  0 

00005 

•00001  1 

1  1 

00006 

•000016- 

SEC 

00007 

•006003$ 

JSF 

SABEGIN 

;  ENTER  PARAMETERS 

00010 

•006025$ 

JSP 

@UOUER 

i  ENTER- USER  PARAMTERS 

0001  1 

•020404 

L  DA 

0,MTXT 

JHALT  TO  ALLOV  EXPEPIMENTEP 

000  12 

•006023$ 

JSP 

@ ATYPE 

>  TO  READY  SUEJECT 

000  13 

•063077 

HALT 

000  14 

•000426 

JMP 

GOGO 

000  15 

•000016’ 

MTXT: 

TXT4 

00016 

•005015 

TXT4: 

.TXT 

*< 15><  1 2> 

000  17 

•020012 

<  1 2> 

• 

00020 

•051  120 

PF 

0002  1 

•051505 

ES 

00022 

•020123 

2 

00023 

•047503 

CO 

00024 

•052116 

NT 

00025 

•0471  1  1 

IN 

00026 

•042525 

UE 

00027 

•052040 

T 

00030 

•0201  17 

0 

0003  1 

•052123 

ST 

00032 

•051  101 

AP 

00033 

•020124 

T 

00034 

•042523 

SE 

00035 

•051523 

SS 

00036 

•04751 1 

10 

00037 

•027116 

N. 

0  0040 

•005015 

<  1  5>< 

12> 

0004  1 

'  000000 

* 

• 

00042 

•020004- 

I 

GOGOs 

L  DA 

0,TPLS 

00043 

•040026- 

STA 

0t CTFL  S 

00044 

•020000- 

LDA 

0,  CLMSK 

;  ENABLE  PTC 

00045 

•062177 

DOBS 

0,  CPU 

; INTERRUPT 

00046 

•010026- 

I  SZ 

CTPLS 

00047 

•020027- 

LDA 

0,  CLKFO 

;PTC@1KHZ  +  START 

00050 

•061114 

DOAS 

0»  PTC 

00051 

•014026- 

AGIN: 

DSZ 

CTPLS 

/DEC  TRIALS  CTP 

00052 

•006004$ 

jspe 

AFOPE 

; SELECT  FPj  RETURN  (PC+2) 

00053 

•000425 

JMP 

FINIS 

;  EXIT 

00054 

•  006005$ 

JSR@ 

ASTIM 

!  SELECT  STIMULUS 

J  STIM  CODE  TO  CS 
; CORRECT  RESP.  CODE  TO  CPESP 

00055 

•  004402 

JSP 

TRIAL 

IPl’N  CURRENT  TRIAL 

00056 

•000773 

JMP 

AGIN 

00057 

•054420 

TPI  AL 

:  STA 

3,NEXT 

; SAVE  PETUEN 

00060 

•  024003- 

TOVEF 

:  LDA 

\,  ITI 

; TRIAL  OVER  ? 

00061 

•020020- 

LDA 

0,  INTEP 

00062 

♦106113 

SGE 

0/  1 

00063 

•000776 

JMP 

.-2 

00064 

•060277 

INTDS 

00065 

•060214 

NIOC 

PTC 

00066 

’ 006002$ 

JSP@ 

ACL  ER 

;  RESET  TIMES 

00067 

•000010 

10 

00070 

•000016- 

SEC 

0007  1 

•006012$ 

JSP 

@PRES 

J  TIME  OUT  THE 
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00072 
00073 
00074 
00075 
00076 
00077 
00100 
00101 
00102 
00103 
00104 
00105 
00106 
00107 
00110 
00111 
001  12 
001  13 
001  14 
00115 
00H6 
00117 
00120 
00121 
00122 
00123 
00124 
00125 
00126 
00127 
00130 
00131 
00132 
00133 
00134 
00135 

00  136 
00137 
00140 
00141 
00142 
00143 
00144 
00145 
00146 
00147 
00150 
00  151 
00152 
00153 
00154 
00155 
00156 
00157 
00160 
00161 


/*  FOREPERIOD/  PRESENT 
;THE  STIMUL US/  RECORD 
JTHE  RESPONSE 

020440 

L  DA 

0/  Z  ERO 

040020- 

STA 

0/  INTER 

060  1  14 

N  IOS 

PTC 

060177 

INTEN 

00240  1 

JMP 

©NEXT 

000000 

NEXT: 

0 

020015$ 

FINIS: 

L  DA 

0/  REPC 

/•GET  RERUN  INDICATOR 

024432 

L  DA 

1/ONE 

/GET  CONSTANT  =  1 

106414 

SUB# 

0/  1  /  SZ  R 

; RERUN? 

000433 

JMP 

RAPUP 

;  NO 

020016$ 

L  DA 

0/OVINC 

I  YES  --  CHECK  IF 

024425 

LDA 

1/ZEPO 

/•ANYTHING  TO  RERUN 

106415 

SUB# 

0/  1/  SNR 

9 

000427 

JMP 

RAPUP 

024422 

LDA 

1/ZERO 

/•SET  RERUN  COIN  TER 

044420 

STA 

1  /MARK 

/•TO  0 

020016$ 

LDA 

0/OVINC 

040013- 

STA 

0/NOVER 

/•STORE  RERUN  COUNT 

020017$ 

STL: 

LDA 

0/  AOVER 

/•GET  ADDRESS  OF 

010414 

I  sz 

MARK 

/  RERUN  TABLE  &  CURRENT 

030413 

LDA 

2/ MARK 

;  COUNT 

1  13000 

ADD 

0/  2 

025000 

LDA 

1/0/2 

044026- 

STA 

1  / CTRL  S 

/•SET  TRIAL  COUNT 

006004$ 

J  SR 

©AFORE 

000000 

0 

006005$ 

J  SR 

©ASTIM 

004732 

J  SR 

TRIAL 

014013- 

DSZ 

NOVEF. 

000765 

JMP 

STL 

000406 

JMP 

RAPUP 

000000 

MARK: 

0 

000000 

Z  ERO : 

0 

000001 

ONE: 

! 

000166' 

ATAFE: 

TXTP 

000213 ' 

ADO: 

« 

ANALS 

024003- 

J 

RAPUP: 

LDA 

1/  ITI 

020020- 

LDA 

0/  INTER 

106113 

SGE 

0/  1 

000776 

JMP 

.  -2 

060277 

INTDS 

060214 

NIOC 

RTC 

060250 

NIOC 

CPI 

006013$ 

JSP 

©ADONE 

020767 

LDA 

0/  ADO 

10  1  120 

MOVZL  0,0 

040402 

STA 

0  >  •  +  2 

006006$ 

JSP 

@A0UTP 

000000 

0 

063077 

HALT 

006020$ 

J  SR 

©PSYCH 

006024$ 

JSP 

©AD  AT 

020756 

LDA 

0/ AT APE 

/  WRITE  MESSAGE  PF,  TAPE 

101 120 

MOVZL  0/0 

040402 

STA 

0  3  •  +  2 

006006$ 

JSP 

@AOUTP 
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00162 

000000 

0 

00163 

063077 

HALT 

00164 

006014$ 

J  SR 

6AVERB 

00165 

002033- 

JMP 

§AHOP 

00  166 

005015 

TXTP: 

.TXT 

/<  1 5> 

00167 

005012 

< 12>< 1 2> 

00170 

047515 

MO 

00171 

047125 

UN 

00172 

020 124 

T 

00173 

047101 

AN 

00174 

020104 

D 

00175 

042522 

RE 

00  176 

042101 

AD 

00  177 

020131 

Y 

00200 

040524 

TA 

• 

00201 

042520 

PE 

00202 

020054 

» 

00203 

051  120 

PR 

00204 

051505 

ES 

00205 

020123 

S 

00206 

047503 

CO 

00207 

052116 

NT 

00210 

0471  1  1 

IN 

0021  1 

042525 

UE 

00212 

000056 

•  / 

002  13 

005015 

ANAL  Ss 

.  TXT/<  1  5>< 

002  14 

051120 

PR 

002  15 

051505 

ES 

00216 

020123 

S 

00217 

047503 

CO 

00220 

052116 

NT 

00221 

047  1  1  1 

IN 

00222 

042525 

UE 

00223 

043040 

F 

00224 

051117 

OR 

00225 

040440 

A 

00226 

040516 

NA 

00227 

054514 

LY 

00230 

044523 

SI 

00231 

000123 

S/ 

.END 
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SUBROUTINE  ALPHA  --  INTERFACES  RTEXP  VI TH 
CRT  FOR  SIMPLE  RIGHT-LEFT  PESEARCH 
(AFTER  OLSON  &  LAXAR,  JEP,  1973) 


ENTRY  POINTS: 

'  1.  UOUEP  --  FOP  USER-SPECIFIC 

PARAMETERS 

2.  PRES  --  FOP  EACH  TRIAL 

3.  ADONE  --  WHEN  PUN  IS  OVER 

USES  SUBROUTINES 

1.  BOX 

2.  SCOPE 

3.  RTINT 
A.  CRTXT 

5.  NZMEM 

6.  BMAN 

AND  THEIR  ASSOCIATED  ROUTINES 


G.M.  OLSON 
5  JUNE  1973  (A) 


.  TITL  ALPHA 

.ENT  UOUEP./  PPES/  ADONE 

.  EXTD  ARTUR/ FP/ CS/RTIME/M  AX/M  IN 

.  EXTD  CPESP/  RESP/  CTDW/  TTIME/  ASCOR 

.EXTD  CLMSK/ ACLER/ SEC/PLBOX 

.  EXTD  SHOU/  ATYPE/  AGETC 


00000- 000064 ' 

ATRUE: 

.  Z  REL 

TRUE 

00001-000065' 

AFALSE: 

FALSE 

00002-000000' 

PRES: 

DSPLY 

00003-000612' 

ADONE: 

FINI  S 

00004-000544  ' 

CLEAR: 

BLAST 

00005-000402' 

YTIME: 

TIME 

00006-000066 ' 

PRINT: 

WRITE 

00007-000660' 

UOUEP.: 

ASK 

00010-177771 

GMASK: 

17777 1 

000050 

000051 

102113 

CRI =50 

CRO=  5  1 

.DALC  SGE= 

AD  CL  #  0/0/SNC 

00000 • 054533 

DSPLY: 

•  NREL 

STA  3/ EXIT 

; SAVE  RETURN 

00001 ' 006004— 

JSP.  @  CL  EAR 

; ERASE  CRT 

00002  *  060250 

NIOC  CPI 

;VAIT  FOP.  SUBJ 

00003 '063650 

SKPDN  CPI 

;to  start  trial 

00004 '000777 
00005 ' 020544 

JMP  .-  1 

LDA  0/AREDY 

; START 

00006 *006006- 
00007*020541 
00010*04001 1$ 
0001  1 '0601  14 
00012*060177 

00013*024002$ 

FPOVR: 

J SR  §PPINT 
LDA  0/ZEROX 
STA  0/ CTDWN 
NIOS  PTC 
INTEN 

LDA  1/FP 

/'COUNT  OUT  FP 

00014*02001 1$ 

LDA  0/CTDVN 
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000  15*  1061  13 

SGE  0,  1 

00016*000776 

JMP  .-2 

00017*060277  CSOM: 

INTDS 

00020 ' 0602 14 

NIOC  PTC 

00021 *063551 

SKPBZ  CPO 

00022*000777 

JMP  1 

00023*020003$ 

LDA  0,CS 

00024  *  040402 

STA  0,.+2 

00025*006017$ 

JSP  @FL  BOX 

00026*000000 

0 

00027*020010- 

LDA  0,  GM ASK 

00030*060150 

NIOS  CPI 

0003 1*060 1 14 

NIOS  PTC 

00032*062177 

DOBS  0, CPU 

00033 

*020515 

TLIM: 

LDA 

0,ZEF.OX 

00034 

'040004$ 

STA 

0,  PTIME 

00035 

*024005$ 

LDA 

1,MAX 

00036 

*063450 

SKPEN  CPI 

00037 

*000413 

JMP 

SOME 

00040 

*  020004$ 

LDA 

0,  P.TIME 

0004  1 

*106113 

SGE 

0,  1 

00042 

*  000774 

JMP 

.  -4 

00043 

*004475 

SLOW: 

JSP 

REPUN 

00044 

*  006004- 

JSP 

@CL EAR 

00045 

*  020505 

LDA 

0, AOVTM 

00046 

»  006006- 

JSP 

©PPINT 

00047 

*020500 

LDA 

0,  THREE 

00050 

*006013$ 

JSP 

©ASCOR 

00051 

*002462 

JMP 

©EXIT 

00052 

*004466 

SOME: 

JSP 

RERUN 

00053 

•006004- 

JSP 

©CLEAP 

00054 

*020010$ 

LDA 

0,  PESP 

00055 

*024407 

LDA 

1 , TRUE 

00056 

*106415 

SUE# 

0,  1,  SNF- 

00057 

*000415 

JMP 

TPESP 

00060 

*024405 

LDA 

1, FALSE 

00061 

•  106415 

SUB# 

0,  1,  SNR 

00062 

*000417 

JMP 

FPESP 

00063 

*000423 

JMP 

IPESP 

00064 

*  000000 

TRUE: 

0 

00065 

*  000000 

FALSE: 

0 

00066 

*054446 

WHITE: 

STA 

3, EXIT+  1 

00067 

*101 120 

MOVZL  0,0 

00070 

*040402 

STA 

0,  SEA 

00071 

•006020$ 

JSP 

©SHOW 

00072 

*  000000 

SEA: 

0 

00073 

*00244  1 

JMP 

©EXIT+ 1 

00074 

*020460 

TP.ESP: 

LDA 

0, ATVFD 

00075 

*006006- 

JSP 

©PRINT 

00076 

•020447 

LDA 

0,  ON  ES 

00077 

•040010$ 

STA 

0, PESP 

00  100 

•000412 

JMP 

LAN 

00101 

*020454 

FFESP: 

LDA 

0, AFVRD 

00  102 

*006006- 

JSP 

©PRINT 

00103 

*  020443 

LDA 

0,  TVO 

00104 

•040010$ 

STA 

0,  FESP 

J CLEAR  CRT,  PPESENT  STIM 


; CHECK  FOP  PESPON  SE 
;OP  FOP  MAX  TIME 


i M AX  TIME? 

;too  slow 


J  ECHO  RESPONSE 
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00105 

*000405 

JMP  LAN 

00  106 

*020450 

IRESP: 

LDA  0,  AIVRD 

00107 

*  006006- 

J  SR  §  PRINT 

00110 

'020437 

LDA  0,  THREE 

00111 

*  0400 1 0$ 

STA  0,  PESP 

00112 

'063551 

LfNi 

SKPEZ  CRO 

001  13 

'000777 

JMP  .-1 

001  14 

•020012$ 

LDA  0,  TTIME 

00115 

•  024006$ 

LDA  1,MIN 

001  16 

•106  113 

SGE  0, 1 

00117 

'000416 

JMP  QUICK 

00120 

*030007$ 

LDA  2j  CRESP 

00121 

•024010$ 

LDA  1 j PESP 

00  122 

'020423 

LDA  0,ONES 

00  123 

'132405 

SUB  1 ,  2,  SN  R 

00124 

*  000404 

JMP  RECRD 

00125 

•020432 

LDA  0*  AERR 

00126 

' 006006- 

J  SR  ©PRINT 

00127 

•020417 

LDA  0j  TWO 

00  130 

•006013$ 

RECRD: 

J  SR  ©ASCOR 

00131 

*  006005- 

J  SR  ©YTIME 

00132 

•00240  1 

JMP  ©EXIT 

000002 

EXIT: 

•  BLK  2 

00  135 

•004403 

GUI CK : 

J  SR  RERUN 

00  136 

'020415 

LDA  0j  AFAST 

00137 

•000707 

JMP  SLOW+3 

00140 

•060277 

RERUN: 

INTDS 

00141 

•060250 

NIOC  CRI 

00142 

•0200 14$ 

LDA  0 j  CLM SK 

00143 

'062177 

DOBS  0j CPU 

00144 

•  001400 

JMP  0,3 

00145 

’  000001 

ONES: 

1 

00  146 

•000002 

TWO : 

2 

00  147 

•000003 

THREE: 

3 

00  150 

•000000 

ZEROX: 

0 

00151 

'000160' 

AREDY: 

REDY 

00  152 

•000162’ 

AOVTM: 

OVTM 

00  153 

•000213’ 

AFAST: 

FAST 

00154 

•000245' 

ATVRD: 

TWP.D 

00155 

•000273 ’ 

AFWRD: 

FWF.D 

00  156 

’000322’ 

AIVRD: 

I  VRD 

00  157 

•000356’ 

AERR: 

ERROR 

00  160 

'003440 

REDY: 

»  TXT  *  <7> 

00161 

'000040 

* 

00162 

•005015 

0  WTM : 

. TXT  *<  15>< 

00163 

•005012 

< 12>< 1 2> 

00164 

•005012 

<  1 2>< 1 2> 

00165 

•005012 

<  12>< 1 2> 

00166 

'020040 

00167 

•020040 

00170 

•020040 

00171 

•020040 

00  172 

•020040 

00173 

•020040 

00174 

'020040 

00175 

•020040 

;echo  complete? 

;  CHECK  IF  RESPONSE  TOO  FAST 

}  CHECK  RESPONSE 


J RECORD  CORRECT  PESP 
;TELL  S,  '’ERROR" 


; RESET  ISP 
}  FOR  RTC  ONLY 


12> 
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00176*020040 
00177*020040 
00200*020040 
00201 *020040 
00202*020040 
00203*020040 
00204*020040 
00205*020040 
00206*052040  T 
00207*047517  00 

00210*051440  S 
00211*047514  L0 
00212*000127  V* 

00213*005015  FAST:  » TXT  *< 1 5>< 1 2> 

00214*005012  <  12><  12> 

00215*005012  <  1  2><  1 2> 

00216*005012  <  12>< 12> 

00217*020040 

00220*020040 

00221 *020040 

00222*020040 

00223*020040 

00224*020040 

00225*020040 

00226*020040 

00227*020040 

00230*020040 

00231 *020040 

00232*020040 

00233*020040 

00234*020040 

00235*020040 

00236*020040 

00237*052040  T 

00240*047517  00 

00241*043040  F 

00242*051501  AS 

00243*020124  T  v 

00244*000000  * 

00245*005015  TVPDS  .TXT  *<15><12> 
00246*005012  <  12>< 12> 

00247*005012  <12><12> 

00250*005012  <  1 2>  < 1 2> 

00251 *020040 
00252*020040 
00253*020040 
00254  *  020040 
00255*020040 
00256*020040 
00257*020040 
00260*020040 
0026 1 *020040 
00262*020040 
00263 ’ 020040  . 

00264*020040 
00265*020040 
00266*020040 
00267*020040 
00270*051124  TR 
00271*042525  UE 
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00272 
00273 
00274 
00275 
00276 
00277 
00300 
00301 
00302 
00303 
00304 
00305 
00306 
00307 
00310 
003  1 1 
00312 
00313 
003  14 
003  15 
00316 
003  17 
00320 
00321 
00322 
00323 
00324 
00325 
00326 
00327 
00330 
00331 
00332 
00333 
00334 
00335 
00336 
00337 
00340 
00341 
00342 
00343 
00344 
00345 
003/t  f' 
00347 
00350 
00351 
00352 
00353 
00354 
00355 
00356 
00357 
00360 
00361 
00362 
00363 
00364 
00365 


000040 
00S015 
005012 
005012 
005012 
020040 
020040 
020040 
020040 
020040 
020040 
020040 
020040 
020040 
020040 
020040 
020040 
020040 
020040 
020040 
040506 
051514 
020105 
000000 
005015 
005012 
005012 
005012 
020040 
020040 
020040 
020040 
020040 
020040 
020040 
020040 
020040 
020040 
020040 
020040 
020040 
020040 
020040 
046  1  1  1 
0425  14 
040507 
0201  14 
042522 
050123 
047  1  17 
042523 
000040 
005015 
020040 
020040 
020040 
020040 
020040 
020040 
020040 


* 

FWRD:  .TXT  *< 15>< 12> 

< 12><  1 2> 

< 12>< 12> 

<  1 2><  1 2> 


FA 

LS 

E 

* 

IVRD: 

<  1 2><  1 2> 
<  12><  12> 
<  1 2><  12> 


TXT  *<  1  5><  1  2> 


LE 

GA 

L 

RE 

SP 

OM 

SE 

* 

ERROR:  .TXT  *<15><12> 
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003  l>6 
00367 
00370 
00371 
00372 
00373 
00374 
00375 
00376 
00377 
00400 
00401 

00402 
00403 
00404 
00405 
00406 
00407 
00410 
004  1  1 
004  12 
004  13 
00414 
00415 
00416 
004  17 
00420 
00421 
00422 
00423 
00424 
00425 
00426 
00427 
00430 
0043  1 
00432 
00433 
0  0434 
00435 
00436 
00437 
00440 
0044  1 
00442 
00443 
00444 
00445 
00446 
00447 
00450 
00451 
00452 
00453 
0  04  54 

00455 

00456 

00457 


'020040 
’  020040 
'020040 
'020040 
1  020040 
1  020040 
020040 
020040 
051105  EP 
047522  RO 
020122  P 
’000000  * 

'054464  TIME: 
'020472 
'006006- 
'  024004S 
'034575 
'054461 
034462 
'054460 
'034450 
'05440 1 

'000000  LOOP: 
'020452 
’  146443 
1  101401 
’  147001 
'000775 
'050442 
014446 
'000402 
'000420 
034442 
030554 
’  156414 
'000414 
'030441 
'034434 
1  164  14 
'000407 
040427 
020424 
004440 
020424 
030422 
000404 
050424 

'004433  TAU: 
030416 
'010745 
151203 
'000743 
'020422 
'006006- 
'002412 
000012 

023420  TENS: 
001750 
'000144 


STA 

3, IOTA 

L  DA 

0, ATTXT 

J  SR 

©PRINT 

L  DA 

UPTIME 

L  DA 

3> Z ERO 

STA 

3,XI 

L  DA 

3,  FIVE 

STA 

3, LAST 

LDA 

3>  INST 

STA 

3>  •  +  1 

0 

LDA 

0,  C60 

SUBO 

i  2,  1,  SNC 

INC 

0,  SKP 

ADD 

2,  1,  SKP 

JMP 

.-3 

STA 

2,  KEEP 

DSZ 

LAST 

JMP 

.+2 

JMP 

TAU 

LDA 

3,XI 

LDA 

2j  Z  ERO 

SUB# 

'  2,  3,  SZ  R 

JMP 

TAU 

LDA 

2,  ONE 

LDA 

3,  C60 

SUB# 

!  0,  3,  SZR 

JMP 

TAU-  1 

STA 

0.»  KEEP+  1 

LDA 

0,  BLANK 

J  SR 

KAPPA 

LDA 

0.»  KEEP+  1 

LDA 

2, KEEP 

JMP 

TAU+  2 

STA 

2,XI 

JSP 

KAPPA 

LDA 

2,  KEEP 

I  SZ 

LOOP 

MO  VP.  2,  2,  SNC 

JMP 

LOOP 

LDA 

0>  AMSEC 

J  SR 

©PRINT 

JMP 

©IOTA 

. RDX  1  0 
10000 
1  000 
100 


;  ENDEC  FOP  CRT 
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00460 

*000012 

00461 

•00000  1 
0000  1  0 

0  04  62 

•03044  1 

INST: 

00463 

’ 000040 

BLANK 

000002 

KEEP: 

00466 

•000000 

IOTA: 

00467 

•  000060 

C60: 

00470 

•000000 

XI: 

00471 

•000000 

LAST: 

00472 

•00000  5 

FIVE: 

00473 

•000001 

ONE: 

00474 

•000534  • 

AMSEC 

00475 

•000510’ 

AT  TXT 

00476 

•030410 

00477 

•0504 10 

00500 

♦063551 

KAPPA 

00501 

•000777 

00502 

•014405 

00503 

•000777 

00504 

•061151 

00505 

•001400 

00506 

•  000250 

CONS: 

00507 

•000000 

IDIOT 

00510 

•005015 

TTXT: 

0051  1 

•020040 

00512 

•  020040 

005  13 

•  020040 

00514 

•020040 

00515 

’  020040 

00516 

•020040 

00517 

•  020040 

00520 

•020040 

00521 

•020040 

00522 

•020040 

00523 

•  020040 

00524 

’  020040 

00525 

'  020040 

00526 

•  020040 

00527 

'  020040 

00530 

•044524 

TI 

00531 

•042515 

ME 

00532 

•036440 

= 

00533 

•00004  0 

* 

00534 

•046440 

MSEC: 

00535 

•0461  1  1 

IL 

00536 

•044514 

LI 

00537 

•042523 

SE 

00540 

•047503 

CO 

0054  1 

•042116 

ND 

00542 

•020123 

S 

00543 

'000040 

* 

00544 

♦054433 

BLAST 

00545 

•020431 

00546 

•101 120 

00547 

*040402 

00550 

'006020$ 

00551 

•  000000 

10 

1 

«  RDX  8 

L DA  2,  .  +  TENS-LOOP 
40 

.  BLK  2 
0 

60 

0 

0 

5 

1 

MSEC 

TTXT 

L  DA  2j  CON  S 
STA  2 ji  I  DIOT 
SKPBZ  CP.O 
JMP  .-1 
DSZ  IDIOT 
JMP  .-1  1 
DOAS  0j CRO 
JMP  0,  3 
250 
0 

.TXT  *<  1  5><  12> 


.TXT  *  M 


STA  3,  SAVE 

LDA  0,  BMSG  ;  ERASE 

MOVZL  0^0 
STA  0^.+2 
J  SR  §SHOW 
0 


CRT 
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00552 

•020001 

LDA  0,  1 

00553 

•040425 

STA  0j  SAVE+1 

00554 

•02042  1 

LDA  0»  ASR 

00555 

♦04000  1 

STA  .0,  1 

00556 

•020425 

LDA  0,ZERO 

00557 

*040425 

STA  0»  COUNT 

00560 

♦020014$ 

LDA  0t  CLM SK 

00561 

♦062177 

DOBS  0,  CPU 

00562 

♦060114 

NIOS  RTC 

00563 

♦060177 

INTEN 

00564 

♦024425 

LDA  1*  INT 

00565 

♦020417 

LDA  0j  COUNT 

00566 

♦106113 

SGE  0,  1 

00567 

•000776 

JMP  .-2 

00570 

•060277 

INTDS 

00571 

•060214 

NIOC  PTC 

00572 

•020406 

LDA  0,  SAVE+  1 

00573 

•  04000  1 

STA  0j  1 

00574 

•002403 

JMP  ©SAVE 

00575 

•000605' 

ASF.: 

ISF. 

00576 

•000601  * 

8MSG: 

MSG 

000002 

SAVE: 

•  BLK  2 

00601 

•006033 

MSG: 

. TXT  *<  33><  14 

00602 

' 000000 

* 

00603 

•000000 

ZERO: 

0 

00604 

•  000000 

COUNT: 

0 

00605 

•010777 

I  SR: 

ISZ  COUNT 

00606 

•0601  14 

NIOS  RTC 

00607 

•060177 

INTEN 

00610 

•002000 

JMP  00 

000012 

• RDX  10 

0061  1 

•00 1440 

INT: 

800 

000010 

.RDX  8 

00612 

054405 

FIN  IS: 

STA  3,  CHETH 

00613 

006004- 

J  SR  e CL EAR 

006M 

020404 

LDA  0,  ETA 

00615 

006006- 

J  SR  §  PR  INT 

006  16 

00240  1 

JMP  0CHETH. 

00617 

0  00000 

CHETH: 

0 

00620 

00062 1 

ETA: 

ZAYIN 

00621 

005015 

ZAYIN: 

. TXT  *<  1  5><  12 

00622 

005012 

<  1 2><  1 2> 

00623 

005012 

<  1 2>< 12> 

00624 

005012 

< 12>< 12> 

00625 

020040 

00626 

020040 

00627 

020040 

00630 

020040 

00631 

020040 

00632 

020040 

00633 

020040 

00634 

020040 

00635 

020040 

00636 

020040 

00637 

020040 

00640 

020040 

00641 

042440 

E 

00642 

042116 

ND 

00643 

047440 

0 

; SET  UP  I  SR 

;for  completion 
jof  erase 


;  erase  COMPLETED 

JN  0 

IVES 
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00644 

♦020106 

F 

00645 

♦042523 

SE 

00646 

♦051523 

SS 

00647 

♦04751  1 

10 

00650 

•0271  16 

N. 

00651 

•020040 

00652 

•044 124 

TH 

00653 

♦047101 

an 

00654 

♦020113 

K 

00655 

•  04753  1 

YO 

00656 

•027125 

U. 

00657 

•  000040 

* 

00660 

•054737 

ASK: 

STA 

3j  CHETH 

0066! 

•02041  1 

L  DA 

0,  TXT  AT 

00662 

♦006021$ 

J  SR 

©ATYPE 

00663 

♦006022$ 

J  SR 

©AGETC 

00664 

•042000- 

STA 

0i ©AT RUE 

00665 

•020406 

L  DA 

0i TXTAF 

00666 

•006021$ 

J  SR 

©ATYPE 

00667 

•006022$ 

J  SR 

©AGETC 

00670 

•042001- 

STA 

0i  ©AFALSE 

00671 

•002726 

JMP 

©CHETH 

00672 

•000674* 

TXT ATs 

BOZO 

00673 

•00071  1  * 

TXTAFj 

SNUB 

00674 

•0050  15 

BOZO! 

.TXT 

*< 1 5><  1 2> 

00675 

•020012 

<  12> 

00676 

•052042 

00677 

•052522 

PIT 

00700 

•021 105 

E" 

0070  1 

•041440 

C 

00702 

•040510 

HA 

00703 

•040522 

RA 

00704 

•052103 

CT 

00705 

•051 105 

ER 

00706 

•  036440 

= 

00707 

•037440 

? 

007  10 

*000040 

* 

007  1  1 

•005015 

SNUB! 

.  TXT 

*<  1  5><  1 2> 

007  12 

•0200  12 

<  12> 

007  13 

•043042 

•*F 

007  14 

•046101 

AL 

007  15 

•042523 

SE 

007  16 

•020042 

IT 

007  17 

•044103 

CH 

00720 

•051101 

AP 

0072.1 

•04150  1 

AC 

00722 

*042524 

TE 

00723 

•020122 

p 

00724 

•020075 

= 

00725 

•020077 

00726 

•  000000 

* 

.END 
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,*  INTERRUPT  SUBRT  FOR  RT  EXPERIMENTS 
J  USING  CRT  AND  RTC 

* 

J  CUMULATE  TIME  AT  CLOCK  FREO  IN 

;locs  inter,  ctdvn,  +  rtime 

i  G.O.  MOELLER 

S  MODIFIED  --  G.M.  OLSON 

;  28  FEERUARY  1973(A) 


.  TITL  RTINT 
.  ENT  ARTUP 

«  EXTD  ARAP,  AOUTP,  CLMSK,  TTIME 
.EXTD  RESP,  INTER,  CTDVN,  RTIME 
•  NR  EL 


00000' 040435 

INRUP: 

sta 

0000  1*061477 

DIB 

00002  *  0602 1 4 

NIOC 

00003 ' 101005 

MOV 

00004*000432 

JMP 

00005* 101200 

MO  VP. 

00006  *  101200 

MO  VP 

00007* 101202 

MOVR 

000 10  *  000406 

JMP 

0001 1 • 101200 

MOVR 

00012* 101200 

MOVR 

00013* 101202 

MOVR 

00014*000455 

JMP 

00015*000475 

JMP 

} CLOCK 

SERVICE 

00016*020417 

SRCL : 

L  DA 

00017*040414 

STA 

00020*020000 

LDA 

00021 *040413 

sta 

00022*010006$ 

J 

.ISZ 

00023*010007$ 

I  SZ 

00024*010010$ 

; RETURN 

I  SZ 

00025*020407 

LDA 

00026*040000 

STA 

00027*020404 

LDA 

00030 '0601 14 

NIOS 

00031 *060177 

INTEN 

00032*002000 

JMP@ 

00033*000000 

J 

CL  SV: 

0 

00034*000000 

0 

00035  *  000000 

CSPAP: 

0 

000050 

CPI  =  50 

; CRT  POUTINE 

00036*020777 

y 

SPCPT: 

LDA 

00037*040426 

STA 

00040*020000 

LDA 

00041 *040425 

STA 

0,  C SPAR 
0,  CPU 
RTC 

0,  0,  SNR 
SRCRT 
0,  0 
0,  0 

0,  0,  SZC 
SR  CL 
0,  0 
0,  0 

0,  0,  SZC 
I  OER 
TELE 

ROUTINE 

0,  CSPAP  ;SAVE  AC0 
0,  CL  SV 

0,0  t  "  LOC  0 

0,  CL  SV+  1 

INTER 

CTDVN 

RTIME 

0,  CLSV+  1 

0,  0 

0,  CL  SV 
PTC 

0 


0, CSPAP 

0, T INT  ;  SAVE  AC0 
0,0  ;  "  LOC  0 

0,  TINT+  1 
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00042*044425 

STA 

1,  TINT+2 

00043*063650 

SKPCN 

CRI 

00044*000777 

JMP 

1 

00045*060650 

DI  AC 

0j  CRI 

00046*024416 

L  DA 

!,  PMSK 

00047’ 123400 

AND  1,0 

00050 ’ 040005$ 

STA 

0,  RESP 

00051 *020010$ 

L  DA 

0,  RT IM  E 

00052*040004$ 

STA 

0,  TTIME 

00053*020003$ 

DL  I  V: 

L  DA 

'  0,  CLMSK 

00054*062077 

MSKO 

0 

00055*0204  1  1 

L  DA 

0,  T INT+  1 

00056*02441  1 

L DA  1,  TINT+2 

00057*040000 

STA 

0J  0 

00060  *  020405 

L  DA 

0,  TINT 

00061*0601  14 

NIOS 

PTC 

00062*060177 

INTEN 

00063  *  002000 

JMP@ 

0 

00064  *  000177 

J 

PMSK; 

177 

000004 

TINT: 

.  BLK  4 

J 

; ERROR 

ROUTINE 

00071  *  020406 

I  OEP: 

L  DA 

0,  ACATJS 

00072  *  101  120 

MOVZL 

0,  0 

00073  *  040402 

STA 

0,  .  +2 

00074  *  006002$ 

JSR@ 

AOUTP 

00075*000000 

0 

00076*002001$ 

JMP@ 

APAP 

00077*000100* 

ACAUS: 

♦ 

CAUS 

00100*005015 

J 

CAUS: 

.  TXT*<  1  5><  1  2> 

00101 *044412 

<  12>  I 

00102*052  116 

NT 

00103*051105 

EP 

00104 ’ 052522 

RV 

00105*052120 

PT 

00106*042440 

E 

00107*051 122 

PP 

00110*051117 

OR 

00111 *000040 

* 

J 

}  TELETYPE  ROUTINE 

001  12 ' 020406 

TELE: 

L  DA 

0,  ATELE 

00113’ 101 120 

MOVZL 

0j  0 

00114’ 040402 

STA 

0,  .  +  2 

001  15*006002$ 

JSP 

§ AOUTP 

001 16*000000 

0 

001  17*002001$ 

JMP 

©APAP 

00120*000121  * 

ATELE: 

TELEX 

00121’ 006440 

TELEX: 

.TXT  * 

<  15> 

00 122*005012 

<12><1 

2> 

00123*042524 

TE 

00  124  *  042514 

LE 

00125*054524 

TY 

00126*042520 

PE 

00127*044440 

I 

00130*0521 16 

NT 

STPIP  PARITY  EXT 


FTC  IMT  ONLY 
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00131*051 105 

00132*052522 

00133*052120 

00134  *026440 

00135*020055 

00136*052522 

00137*0201 16 

00140*05151 1 

00141 *040440 

00142*047502 

00143*052122 

00144*042105 

00145*000040 


00000-000000* 


ER 

RU 

PT 


RU 
N 
I  S 
A 
BO 
RT 
ED 
* 

•  ZREL 

ARTUP:  IN PUP 

♦ 

•  END 
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(SUBROUTINE  SCORE  --  STORES  INFORMATION  DURING 

*  REACTION  TIME  EXPERIMENT  FOR  LATER  ANALYSIS.  ' 
(  KEEPS  TRACK  OF  WHICH  TRIALS  NEED  TO  BE  RERUN 

*  AT  END  OF  REGULAR  SEQUENCE. 

( ENTRY:  JSR  @ASCOR 

(<AC0>  ON  ENTRY  WILL  BE  FOLLOWING  CODE: 

:  1  =  CORRECT  RESPONSE 

!  2  =  ERROR  RESPONSE 

!  3  =  NULL  <MIN,MAX  TIME  LIMITS) 

(OVINC  IS  SET  TO  ZERO  BY  SUBROUTINE  DESIGN 

*  FOR  EACH  NEW  FUN.  REPC,  VHI CH  IS  A) 
(INDICATOR  FOP  HOW  TO  HANDLE  ERROPS  AND 
(NULLS,  IS  SET  IN  DESIGN.  1  =  RERUN  ALL 
(ERRORS  AND  NULLS,  2  =  THROW  THEM  OUT. 

(NOTE:  BUILDS  TABLES  IN  A  TOP-TO-BOTTOM 

(ORDER,  CONSISTENT  WITH  SUBROUTINES 
(DESIGN  AND  FTANL. 


•  M.  OLSON 
NOVEMBER 


1972  (A) 


.TITL  SCOPE 

.  ENT  ASCOR,  ACODE,  ATIME,  AOVER,  OVINC,  REPC 
.  EXTD  CTRL  S,  RTIME,NOVEP. 


.  ZREL 

00000-000000* 

ASCOR: 

START 

00001-000027* 

ACODE: 

CODE- 1 

00002- 000427  * 

ATIME: 

TIME-  1 

00003-001027* 

AOVER: 

OVER-  1 

00004-000000 

OVINC: 

0 

00005-000000 

REPC: 

0 

•  NREL 

00000*054426 

START: 

STA  3, ONYX 

ISAVE  RETURN 

00001  *  02400  IS 

LDA  1 ,  CTRL  S 

;get  trial  ct 

00002  *  03000 1- 

L DA  2, ACODE 

; ADDR. 

OF  CODE  ARRAY 

00003  *  133000 

ADD  1,2 

00004  *  04 1 000 

STA  0,0,2 

; STORE 

CODE 

00005*030002- 

LDA  2,  ATIME 

; ADDR. 

OF  TIME  ARRAY 

00006* 133000 

ADD  1,2 

00007*034002$ 

LDA  3,  RTIME 

00010*055000 

STA  3,  0,  2 

; STORE 

TIME 

00011 *030416 

LDA  2, ONES 

00012* 1 12415 

SUB#  0,  2,  SNR 

00013*002413 

JMP  ©ONYX 

00014*020005- 

NULL: 

LDA  0,  REPC 

,*  CHECK 

FOR  RERUN  OPTION 

00015* 101233 

MOVZB#  0,  0,  SNC 

00016*002410 

JMP  ©ONYX 

,*NO  RERUN 

00017*010004- 

ISZ  OVINC 

,*ADD  TO 

RERUN  CT 

00020*010003$ 

ISZ  NOVER 

;  INCREMENT  TEMP.  RERUN 

00021 *030003- 

LDA  2,  AOVER 

; ADDRESS  OF  RERUN  ARRAY 

00022*020004- 

LDA  0,  OVINC 

00023’ 1 13000 

ADD  0,2 

00024*045000 

STA  1,0,2 

,*  STORE 

CURRENT  TRIAL  CT 

00025*002401 

JMP  ©ONYX 

00026  *  000000 

ONYX: 

0 
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1 


00027  *  00000 1  ONES: 

000400  CODE;  .BLK  400 

000400  TIME:  .ELK  400 

000200  OVER:  .BLK  200 

.END 


,*  SUBROUTINE  FOR  DESIGN  OF  RT  EXPERIMENTS 
;  QUERIES  "E"  FOR  DESIGN  PARAMETERS 

;  SETS  UP  SET  OF  TRIALS  FOR  PUN 

;  FETCHES  VALUES  OF  STIMULI  AND 

J  FOREPERIODS  DUPING  RUN 

;  CALLS: 


> 

J  SR 

@ ABEGIN 

FOR  INITIAL  DESIGN 

• 

J 

OR  RUN  SETUP 

« 

J 

J  SR 

@AFORE 

TO  FETCH  FOREPERIOD 

--RETURNED  IN  LOC. 

FP 

> 

J  SR 

&ASTIM 

TO  FETCH  STIMULUS 

CODE 

J 

--RETURNED  IN  LOC. 

CS 

J 

--CORRECT  RESPONSE 

CODE 

J 

--RETURNED  IN  LOC. 

CRESP 

JREOUIPES  SUBROUTINES  PERMUTE,  BMAN,  &  INOUT 
}  USES  ALL  ACCUMULATORS  DESTRUCTIVELY 
; SAVES  CONTENTS  OF  LOCS  20-25 
,*  ASSUMES: 


1.  STIMULI  AND  RESPONSES  ARE  REPRESENTS 
EY  NUMERIC  CODES  WHICH  WILL  BE  PASSED  TO 
A  STIMULUS  GENERATION  SUBROUTINE  AT  RT*N 
TIME 

2.  ALL  NUMERIC  INPUTS  DURING 
QUERIES  ARE  DECIMAL 

3.  MAX  VALUES  ARE: 

#  STIMULI  =  64 

#  RESPONSES  =  64 

#  FOREPEPI ODS  =  16 

#  TRIALS  =  256 

4.  BLOCKING  FACTOR  WILL  BE  USED 
TO  DETERMINE  THE  MANNER  IN  WHICH 

THE  INDIVIDUAL  RUNS  WILL  BE  RANDOMIZED 


G.M.  OLSON 
19  MARCH  1973  CA) 


.TITL  DESIGN 

.  ENT  AEEGIN,  AFORE,  ASTIM,  AFP,  ACS,  ARESP 
.ENT  I  STIM,  I  FORE,  ATYPE,  APE 
.  EXTD  AOUTP,  ADCEN,  AGETC,  AH'! DC,  APRMT 
.  EXTD  EXP, SUBJ , GROUP, TRL S, I TI ,M AX, M IN 
.EXTD  FP,  CT,  CS,  CTRLS,NFP,  OLD,  APAND 
.EXTD  CPESP,  OVINC,  REPC 


.  ZFEL 


00000-000000* 

ABEGIN: 

BEGIN 

00001-000050* 

AFORE: 

EWR 

000  02- 000  060  * 

ASTIM: 

LGA 

00003- 002577* 

I  FORE: 

FORE-  1 

00004-002177* 

ISTIM: 

STIM-  1 

00005-001 177’ 

I  SPACE: 

SPACE-  1 

00006-001577* 

I  PLACE: 

PLACE-  1 

00007-003177* 

AFP: 

FPTAB- 1 

00010-003217* 

ACS: 

CSTAB- 1 

000 1 1-003317’ 

APESP: 

RTAB-  1 

0000  1  0 

SAVE: 

•  BLK  10 

0000 1 0 

WORK: 

.ELK  10 
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00032-001024* 

ARRAN  GE 

:  PUNT 

00033-000001 

ONE: 

1 

00034-000000 

ZERO: 

0 

00035-000000 

ELK: 

0 

00036-000256  * 

ATYPE: 

PRINT 

00037-000264* 

APE: 

PGET 

00040-000270* 

ATXT: 

TXT  1 

00041-000302* 

TXT2 

00042-000317* 

TXT  3 

00043-000346’ 

TXT4 

00044-000367  * 

TXT5 

00045-000403* 

TXT  6 

00046-000416* 

TXT  7 

00047-000433* 

TXT8 

00050-00044  1  ’ 

TXT9 

00051-000451 ’ 

TXT  10 

00052-00046 1  * 

TXT  1  1 

00053-000500* 

TXT  12 

00054-000516’ 

TXT  13 

00055-000534* 

TXT  14 

00056-000572  * 

TXT  15 

00057-000621  • 

TXT  16 

00060-000651  * 

TXT  1 7 

00061-000677  * 

TXT  18 

00062-0007  1  1  ’ 

TXT  19 

00063-000713* 

TXT20 

00064-000714* 

TXT  21 

00065-000744* 

TXT22 

00066-000773* 

TXT23 

00067-001006’ 

TXT  24 

•  NREL 

00000*054012- 

-BEGIN: 

STA  3,  SAVE 

1  SAVE  (AC 3) 

00001*020040- 

L  DA  0,  ATXT 

,*  PRINT  HEADING 

00002*006036- 

JSP.  @ ATYPE 

00003*020064- 

L  DA  0,ATXT+24 

00004*006036- 

J  SR  SATYPE 

00005*020041- 

VHY : 

L  DA  0, ATXT+ l 

;exp  0 

00006*006037- 

J  SR  @APE 

00007 ' 044440 

STA  1,TEXP 

ITEM P.  EXP.  NO. 

00010*020006$ 

LDA  0,  EXP 

0001 1 ’ 106415 

SUB#  0,1,  SNR 

J  CHECK  VS.  OLD  EXP  # 

00012*000402 

JMP  .+2 

00013*004475 

JSP  CHANGE 

,-EXP  #S  DO  NOT  MATCH 

00014*020044- 

LDA  0 ,  ATX T+  4 

; SUBJ  # 

00015*006037- 

JSP.  0APE 

00016*044007$ 

STA  1 , SUBJ 

00017*020045- 

LDA  0,  ATXT+  5 

; GROUP  # 

00020*006037- 

J  SR  @ APE 

00021  *044010$ 

STA  1, GROUP 

00022*024007$ 

LDA  1  ,  SUBJ 

I  ROUTINE  TO  SET 

00023*030006$ 

LDA  2,  EXP 

J  RANDOM  NUMBER 

00024  *  133000 

ADD  1,2 

; GENERATOR  SEED 

00025’ 150000 

COM  2,2 

00026*024416 

LDA  1,  RM SK 

00027 ’ 133400 

AND  1,  2 

00030*020416 

LDA  0,  RCON 

00031 ’ 1 13000 

ADD  0,  2 

00032*021005 

LDA  0,5,2 

00033*040022$ 

STA  0,  OLD 
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00034 

•  107400 

AND 

0,  1 

00035 

•044410 

ST  A 

1  ,M  CT 

00036 

'  006023$ 

J  SR 

@ARAM  D 

00037 

•000022$ 

OLD 

00040 

•014405 

DSZ 

MCT 

0004  1 

•000775 

JMP 

.-3 

00042 

•006032- 

JSF 

^ARRANGE 

1^0043 

•002012- 

JMP 

©SAVE 

00044 

•000077 

PMSK: 

000077 

00045 

•000000 

MCT: 

0 

0004  6 

•  000400 

PCON : 

400 

00047 

'  000000 

TEXP: 

0 

00050 

•054012- 

EUR: 

STA 

3,  S  AVE 

00051 

•010012- 

I  SZ 

SAVE 

00052 

•030003- 

L  DA 

2,  I  FORE 

00053 

•024020$ 

L  DA 

1 , CTRL  S 

00054 

•  133000 

ADD 

l,  2 

00055 

•025000 

L  DA 

Ij0j2 

00056 

•044015$ 

STA 

1 1  FP  • 

00057 

•002012- 

JMP 

©SAVE 

00060 

•054012- 

LGA: 

STA 

3, SAVE 

00061 

•030004- 

L  DA 

2,  I STIM 

00062 

•024020$ 

LDA 

1 j  CTRL  S 

00063 

•  133000 

ADD 

1,2 

00064 

•025000 

LDA 

1,0,  2 

00065 

•044017$ 

STA 

1,CS 

00066 

•020020 

LDA 

0,  20 

00067 

•040013- 

STA 

0,  SAVE+  1 

00070 

•020034- 

LDA 

0,  Z  ERO 

00071 

•040022- 

STA 

0, WORK 

00072 

•020010- 

LDA 

0,  ACS 

00073 

•040020 

STA 

0,  20 

00074 

•010022- 

ISZ 

WORK 

00075 

•022020 

LDA 

0,  @20 

00076 

•  106414 

SUB# 

0,  1,  SZP 

00077 

•000775 

JMP 

.-3 

00100 

•03001  1- 

LDA 

2, ARESP 

00101 

•020022- 

LDA 

0, VORK 

00102 

•  1  13000 

ADD 

0,2 

00103 

•021000 

LDA 

0,0,2 

00  104 

•040024$ 

STA 

0, CRESP 

00  105 

•020013- 

LDA 

0,  SAVE+  1 

00106 

•040020 

STA 

0,  20 

00107 

•002012- 

JMP 

©SAVE 

001 10*054013- 

CHANGE:  STA 

3,  SAVE+  1 

00111 *020042- 

LDA 

0,  ATX T  +  2 

001 12*006037- 

JSP 

@APE 

00 1 13*020033- 

LDA 

0,  ONE 

001  14  *  1064 1 5 

SUB# 

0,  1,  SNR 

00 1 15*000402 

JMP 

«  +  2 

00 1  16*00041  1 

JMP 

BOS 

00 1 17*020043- 

LDA 

0,  ATXT+3 

00120*006037- 

J  SR 

@  APE 

00121 ’020033- 

LDA 

0,  ON  E 

00122’ 106415 

SUB# 

0,  1,  SNR 

00123*000662 

JMP 

VHY 

00124*020723 

LDA 

0,  TEXP 

;  set  up  rum 

; RETURN 


;  SAVE  (AC3) 

;INC.  PC  FOR  RETURN 
,*  ADDRESS  OF  FOREPERIOD  APRAY 
;  CURRENT  TRIAL  # 

}  GENERATE  NEV  ADDRESS 
,*(AC1)  =  FOREPEPIOD 
; STORE  IT 
; RETURN 
; SAVE  (AC 3) 

; ADDRESS  OF  STIMULUS  ARRAY 
;  CURRENT  TRIAL  # 
i  GENERATE  NEV  ADDRESS 
I  (AC  I)  =  STIMULUS  CODE 
J STORE  IT 
ISAVE  (20) 

I  ZERO  COUNTER 

; addr.  of  stim.  taele 

;IMCF.  COUNT 

;  CHECK  IF  STIM.  MATCH 

;addr.  of  PESP.  TABLE 
J COUNT  OF  STIM.  POSITION 
; CPEATE  ADDR.  OF  COP.  RESP.  CODE 
I  FETCH  CORRECT  PESP.  CODE 
; STORE  IT 
; RESTORE  (20) 


;  QUERY  RE  DESIGN  CHANGE 

i  CHECK  FOP  ”NO" 

;  IF  "NO*' 

,* I F  "YES" 

J  CHECK  FOR  CODE  CHANGE 

;  CHECK  FOR  "NO” 

;  IF  "NO" 

;IF  "YES” 
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00125 

'  040006S 

ST  A 

0,  EXP 

00126 

*002013- 

JMP 

@SAVE+ 1 

00127 

•020056- 

BOSj 

LCA 

0j ATXT+ 1 6 

iMESSAGE 

00130 

*006036- 

JSP 

@ATYPE 

00131 

•020057- 

LDA 

0,  ATXT+  1  7 

00132 

•006036- 

J  SR 

@atype 

00133 

*020060- 

LDA 

0,  ATXT+20 

00134 

*006036- 

J  SR 

@ATYPE 

00135 

’  020712 

LDA 

0,TEXP 

00136 

•040006$ 

STA 

0,  EXP 

00137 

*020046- 

LDA 

0,  ATXT+6 

;#  TRIALS 

00140 

•006037- 

J  SR 

@APE 

0014  1 

•04401 1$ 

STA 

1,TRLS 

00142 

*020061- 

LDA 

0,  ATXT+21 

00143 

•006037- 

J  SR 

@APE 

00144 

•044035- 

STA 

1,BLK 

00145 

•020047- 

LDA 

0,  ATXT+7 

00146 

*006037- 

J  SR 

@  APE 

J  I TI 

00147 

*044012$ 

STA 

1>  I  TI 

00150 

•020050- 

LDA 

0, ATXT+10 

;max  ft 

0015  1 

•006037- 

JSP 

§  APE 

00152 

*044013$ 

STA 

1,M  AX 

00153 

•020051- 

LDA 

0>  ATXT+  1  1 

;min  rt 

00154 

•006037- 

J  SR 

@APE 

00155 

•044014$ 

STA 

UMIN 

00156 

•024020 

LDA 

1^20 

;SAVE  (20) 

00157 

*044023- 

STA 

1 , WORK+ 1 

00160 

•024021 

LDA 

1>  2 1 

00161 

•044024- 

STA 

1 , WORK +2 

00162 

•020052- 

LDA 

0, ATXT+ 12 

;#  FOREPERIODS 

00163 

•006037- 

JSR 

@APE 

00164 

*044021$ 

STA 

1,NFP 

00165 

*044025- 

STA 

1,  VORK+3 

00166 

•010025- 

ISZ 

WOP.K+  3 

00167 

•020053- 

LDA 

0, ATXT+ 1 3 

00170 

•006036- 

JSR 

6ATYPE 

00171 

•024007- 

LDA 

1,  AFP 

; ADDRESS  OF  FP  TABLE 

00172 

•044020 

STA 

1,  20 

;loc  20  =  AFP 

00173 

•024034- 

LDA 

1^  ZERO 

00174 

•044022- 

STA 

1^  WORK 

;SET  PRINT  AT  0 

00175 

•010022- 

ORD: 

I  sz 

WORK 

J  INCREMENT  PRINT 

no. 

00176 

•014025- 

DSZ 

WORK +3 

;  DECREMENT  STEP 

CT 

00177 

•000402 

JMP 

.  +  2 

IGO  TO  FP  PEG  PRINT 

00200 

•000410 

JMP 

MSP 

ISKIP  IF  DOME 

00201 

•024022- 

LDA 

1 , WORK 

00202 

•006004$ 

JSP 

@ABNDC 

;  PRINT  FP  NO. 

00203 

•020063- 

LDA 

0,  ATXT+23 

i SPACE 

00204 

•006036- 

JSR 

©ATYPE 

00205 

•006002$ 

JSR 

@ AD CBN 

;GET  FP  VALUE 

00206 

*046020 

STA 

©  1,  20 

;  STORE  FP  VALUE 

00207 

•000766 

JMP 

ORD 

;loop 

00210 

•020054- 

MSP: 

LDA 

0* ATXT+ 14 

;#  STIMULI 

0021  1 

•006037- 

JSR 

©APE 

00212 

•044016$ 

STA 

1,  CT 

00213 

•044025- 

STA 

VORK+3 

00214 

•010025- 

I  SZ 

WORK+3 

00215 

•020055- 

LDA 

0,  ATXT+  1  5 

00216 

•006036- 

JSR 

©ATYPE 

00217 

•024034- 

LDA 

1 1 Z  EPO 

00220 

•044022- 

STA 

1 i WORK 

D-24 


0022  1 

•024010- 

LDA 

1,  ACS 

I  ADDRESS  OF  STIM 

TABLE 

00222 

•044020 

STA 

1,  20 

00223 

•02401 1- 

LDA 

1,  AF.ESP 

,*  ADDRESS  OF  RESP 

TABLE 

00224 

•044021 

STA 

1,21 

00225 

•010022- 

OAK! 

ISZ 

WORK 

00226 

•014025- 

DSZ 

WORK+3 

00227 

•000402 

JMP 

.+2 

00230 

*000416 

JMP 

SLC 

0023  1 

•024022- 

LDA 

1,  WORK 

00232 

•  006,004$ 

J  SR 

@AENDC 

; PRINT  STIM  NO. 

00233 

•020066- 

LDA 

0,  ATXT+2  6 

00234 

*006036- 

JSP. 

@ATYPE 

00235 

'006002$ 

J  SR 

@ ADCBN 

; GET,  STORE  STIM 

CODE 

00236 

■046020 

STA 

@1,20 

00237 

•020067- 

LDA 

0, ATXT+27 

00240 

•006036- 

J  SR 

@ ATYPE 

00241 

•006002$ 

JSP 

@ ADCBN 

} GET, STORE  CORRECT  RESP  CODE 

00242 

•046021 

STA 

©1,21 

00243 

•  020062- 

LDA 

0,  ATXT+22 

ICR  AND  LF 

00244 

•006036- 

JSP 

©ATYPE 

00245 

’  0007 60 

JMP 

OAK 

00246 

*020065- 

SLC: 

LDA 

0,  ATXT+25 

i  QUERY  RE  NULLS 

&  ERRORS 

00247 

•006037- 

JSP 

©APE 

00250 

•044026$ 

STA 

l , PEPC 

00251 

•024023- 

LDA 

1,  WOPK+  1 

i RESTORE  (20) 

00252 

*044020 

STA 

1, 20 

00253 

•024024- 

LDA 

1,  WORK+2 

i RESTORE  (21) 

00254 

•044021 

STA 

1,  21 

00255 

•002013- 

JMP 

@SAVE+ 1 

00256 

•054014- 

PRINT! 

STA 

3,  SAVE+2 

00257 

•101120 

MOVZL  0,0 

00260 

•040402 

STA 

0,  JFK 

00261 

’ 006001$ 

JSR 

©AOUTP 

00262 

•  000000 

JFK: 

0 

00263 

•002014- 

JMP 

@ SAVE+2 

00264 

•05401 5- 

PGET! 

STA 

3,  SAVE+3 

00265 

•006036- 

JSR 

©ATYPE 

00266 

•006002$ 

JSR 

©ADCBN 

00267 

•002015- 

JMP 

©SAVE+3 

00270*005015 

TXT  1 : 

.  TXT 

*<  1  5><  1  2> 

00271*020012 

<  1 2> 

00272*052122 

PT 

00273 '042440 

E 

00274*050130 

XP 

00275*050040 

P 

00276 '047522 

RO 

00277*051 107 

GP. 

00300 '04650 1 

AM 

00301 ’000040 

* 

00302*005015 

TXT2: 

.TXT 

*< 1 5><  1  2> 

00303*020012 

<  1 2> 

00304*054105 

EX 

00305’ 042520 

PE 

00306*044522 

F.I 

00307*042515 

ME 

00310’ 052 116 

NT 

003 1 1 ’ 041440 

C 

003  1 2 ’ 042 1 17 

OD 

D-25 


00313 

•020105 

E 

003  14 

•020075 

= 

00315 

•020077 

7 

00316 

f  0  00  000 

* 

00317 

•005015 

TXT3: 

. TXT  *<  1 5><  1 2> 

00320 

*020012 

<  1 2> 

0032  1 

•042516 

NE 

00322 

•020  127 

V 

00323 

*047503 

CO' 

00324 

*042504 

DE 

00325 

•020056 

• 

00326 

•041440 

C 

00327 

•040510 

HA 

00330 

•043516 

NG 

00331 

'020105 

E 

00332 

•042504 

DE 

00333 

*044523 

SI 

00334 

*047107 

GN 

00335 

*020077 

7 

00336 

*030450 

<  i 

00337 

'020051 

> 

00340 

*047516 

NO 

00341 

*024040 

( 

00342 

*024462 

2) 

00343 

•054440 

Y 

00344 

•05  1505 

ES 

00345 

•000040 

* 

00346 

•005015 

TXT4: 

. TXT  *< 15>< 12> 

00347 

•020012 

<  1  2> 

00350 

*044103 

CH 

00351 

*  047  i  0  1 

AN 

00352 

•042507 

GE 

00353 

•041440 

C 

00354 

*0421 17 

OD 

00355 

*037505 

E? 

00356 

•024040 

( 

00357 

•024461 

1) 

00360 

•047040 

N 

00361 

'020 1  17 

0 

00362 

*031050 

(2 

00363 

•020051 

) 

00364 

•04253 1 

YE 

00365 

•020123 

S 

00366 

f  000000 

* 

00367 

•005015 

TXT  5: 

. TXT  *<  1  5><  12> 

00370 

•  0200  12 

<  12> 

00371 

•052523 

SU 

00372 

•045102 

BJ 

00373 

•041505 

EC 

00374 

•020124 

T 

00375 

*052516 

NU 

I  00376 

•041 1 15 

MB 

00377 

•051105 

ER 

0  0400 

*036440 

= 

00401 

•037440 

7 

I 

00402 

*  000040 

* 

1 

00403 

•005015 

TXT  6: 

. TXT  *<  1  5><  12>  M 

00404 

'043440 

G 

■ 

00405 

047522 

PO 

I 

00406 

*050125 

UP 

D-26 

00407 

•047040 

N 

00410 

•046525 

UM 

004  1  1 

*042502 

BE 

004  12 

•020122 

R 

004  13 

•020075 

= 

004  14 

*020077 

7 

004  15 

'  000000 

* 

004  16 

•  005015 

TXT  7: 

004  17 

•047040 

N 

00420 

•046525 

UM 

0042  1 

•042502 

BE 

00422 

•020122 

R 

00423 

•0431  17 

OF 

00424 

•052040 

T 

00425 

•  044522 

R I 

00426 

*046101 

AL 

00427 

•020123 

S 

00430 

•020075 

= 

00431 

•020077 

0 

00432 

*000000 

* 

00433 

•005015 

TXT8 : 

00434 

•044440 

I 

00435 

•044524 

T I 

00436 

•036440 

= 

00437 

•037440 

7 

00440 

' 00004  0 

* 

00441 

•005015 

TXT9 : 

00442 

•  046440 

M 

00443 

•054  101 

AX 

00444 

•051040 

P. 

00445 

•020124 

T 

00446 

•020075 

3 

00447 

•020077 

? 

00450 

•000000 

* 

00451 

•005015 

TXT  10 

00452 

•046440 

M 

00453 

•047  1  1  1 

IN 

00454 

•051040 

P 

00455 

•020124 

T 

00456 

•  020075 

= 

00457 

•020077 

7 

004  60 

'  000000 

* 

00461 

*005015 

TXT  1  1 

00462 

•047040 

N 

00463 

•046525 

UM 

00464 

•042502 

BE 

00465 

•020122 

R 

00466 

*0431 17 

OF 

00467 

•043040 

F 

00470 

•051 1 17 

OR 

00471 

•  050  105 

EP 

00472 

•051105 

EP 

00473 

•0475 1 1 

10 

00474 

*051504 

DS 

00475 

•036440 

= 

00476 

•037440 

7 

00477 

'  000040 

* 

00  500 

•005015 

TXT  12 

00501 

•043040 

F 

00502 

•051  1  17 

OR 

•  TXT  *<  1  5> <  1 2> 


. TXT  *<  1  5> <  1  2> 


TXT  *<  15><  1 2> 


,  TXT  *<  1 5> <  12> 


,  TXT  *<  1  5>  <  1  2> 


,  TXT  *<  15><  1 2> 
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00503 '050105  EP 
00504*051 105  ER 
00505*047511  10 

00506  *  05 1504  DS 
00507*044440  I 
00510*020116  N 
00511*051515  MS 
00512*041505  EC 
00513*020056  . 

00514*005015  <  15><  12> 

00515*000000  * 

00516*005015  TXT  13:  .TXT  *<15><12> 
00517*020012  < 1 2> 

00520*052516  NU 
00521*041115  MB 
00522*051105  ER 
00523*047440  0 

00524*020106  F 
00525*052123  ST 
00526*046511  IM 
00527*046125  UL 
00530*020111  I 
00531*020075  = 

00532*020077  7 

00533*000000  * 

00534*005015  TXT  14 j  .TXT*<15><12> 

00535*052040  T 

00536*050131  YP 

00537*020105  E 

00540*052123  ST 

00541*046511  IM 

00542*046125  UL 

00543*051525  US 

00544*041440  C 

00545*042117  OD 

00546*020105  E 

00547*047506  FO 

00550*046114  LL 

00551*053517  OV 

00552*042105  ED 

00553*041040  B 

00554*020131  Y 

00555*047503  CO 

00556*051  122  P.R 

00557*041505  EC 

00560*020124  T 

00561*042522  RE 

00562*050123  SP 

00563*047117  ON 

00564*042523  SE 

00565*041440  C 

00566*042117  OD 

00567*020105  E 

00570*005015  <  15><  12> 

00571*000000  * 

00572*005015  TXT  15:  . TXT  *<  1  5>< 12> 

00573*041040  B 

00574*047514  LO 

00575*045503  CK 

00576*051440  S 
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00577 

•055  1  1  1 

IZ 

00600 

•020105 

E 

00601 

•052515 

MU 

00602 

•052123 

ST 

00603 

•042440 

E 

00604 

'052521 

QU 

00605 

•046101 

AL 

00606 

•047040 

N 

00607 

•  021450 

<  4 

00610 

•052123 

ST 

006  1  1 

•04651  1 

IM 

006  12 

•02405  1 

)  < 

00613 

•043043 

#F 

006  14 

•024520 

P) 

00615 

•020054 

* 

00616 

•044127 

VH 

00617 

♦051105 

ER 

0  0620 

•000105 

E* 

00621 

•005015 

TXT  16 

00622 

•047040 

N 

00623 

•044440 

I 

00624 

•020123 

S 

00625 

•047101 

AN 

00626 

•0^4440 

I 

00627 

•052  116 

NT 

00630 

•043505 

EG 

00631 

•051105 

ER 

00632 

•037040 

> 

00633 

•030040 

0 

00634 

•020056 

• 

00635 

•041040 

B 

00636 

•047514 

LO 

00637 

•045503 

CK 

0  0640 

•051440 

S 

00641 

•0551 1 1 

IZ 

00642 

•020105 

E 

00643 

•052515 

MU 

00644 

•052123 

ST 

00645 

•  040440 

A 

00646 

•051514 

LS 

00647 

•020  1  17 

0 

00650 

•  000000 

* 

00651 

•005015 

TXT  17 

00652 

•041040 

B 

00653 

•020105 

E 

00654 

•047101 

AN 

00655 

•  044440 

I 

00656 

’0521  16 

NT 

00657 

•043505 

EG 

00660 

•040522 

RA 

0066  1 

•020  1  14 

L 

00662 

•05252 1 

GU 

00663 

•0521 17 

OT 

00664 

•04251  1 

IE 

00665 

•0521 16 

NT 

00666 

•  047440 

0 

00667 

•020106 

F 

00670 

•020043 

# 

00671 

•051 124 

TR 

00672 

•04051 1 

IA 

. TXT  *<  1  5><  12> 


. TXT  *< 1 5>< 1 2> 
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00673 

*051514 

L  S 

00674 

*020056 

♦ 

00675 

*005015 

<  1  5><  1 2> 

00676 

' 000000 

* 

00677 

*005015 

TXT  18: 

. TXT  *<  1 5><  1 2> 

00700 

*041040 

B 

00701 

•047514 

LO 

00702 

•045503 

CK 

00703 

•051440 

S 

00704 

•0551  1  1 

IZ 

00705 

•020105 

E 

00706 

•  020075 

= 

00707 

•020077 

0 

007  10 

•  000000 

* 

007  1  1 

•005015 

TXT  19: 

.TXT  *< 1 5> <  12> 

007  12 

•  000000 

* 

00713 

*  00004  0 

TXT20: 

.TXT  *<40>* 

007  14 

•005015 

TXT2  1 : 

.TXT  *< 15><  12> 

00715 

•  040440 

A 

007  16 

•0461  14 

LL 

007  17 

•  042440 

E 

00720 

•052  1  16 

NT 

00721 

•044522 

PI 

00722 

•051505 

ES 

00723 

•040440 

A 

00724 

•042522 

PE 

00725 

•  042040 

D 

00726 

•  04 1 505 

EC 

00727 

•0465 1 1 

IM 

00730 

•046101 

AL 

00731 

•020054 

J 

00732 

•046 101 

AL 

00733 

•020  1  14 

L 

007  34 

•044524 

T I 

00735 

•042515 

ME 

00736 

•020123 

S 

00737 

•0471 1 1 

IN 

00740 

•046440 

M 

0074  1 

•  042523 

SE 

00742 

•027103 

C. 

00743 

•  000000 

* 

00744 

•005015 

TXT22: 

•  TXT  *<  1  5><  1 2>  ! 

00745 

•051040 

R 

00746 

•051 105 

EP 

00747 

•047125 

UN 

00750 

’  042440 

E 

00751 

•  051  122 

PR 

00752 

•051117 

OR 

00753 

•020123 

S 

00754 

•020046 

& 

00755 

•052516 

NU 

00756 

•046  1  14 

LL 

00757 

•020123 

s 

00760 

•030450 

C  1 

00761 

*02005 1 

> 

00762 

•051117 

OR 

1 

00763 

•042040 

D 

■ 

00764 

•051511 

I  S 

J 

00765 

•040503 

CA 

Jg 

00766 

•042122 

PD 

00767 

•  024040 

( 

00770 

*024462 

2) 

00771 

*020077 

? 

00772 

*  000000 

* 

00773 

* 020040 

TXT23: 

.TXT 

* 

00774 

'020040 

00775 

*052123 

ST 

00776 

*  0465  1  1 

IM 

00777 

’  046125 

TJL 

0  1000 

*051525 

US 

0  1001 

'041440 

C 

0  1002 

*0421  17 

OD 

01003 

*020105 

E 

0  1004 

' 020075 

= 

01005 

'000040 

* 

0 1  r  06 

’ 020040 

TXT 24: 

.TXT 

* 

01007 

*020040 

01010 

*020040 

01011 

*  020040 

01012 

*051040 

R 

01013 

•051505 

ES 

01014 

•047520 

PO 

01015 

•051516 

MS 

0  10  16 

'020105 

E 

0  1017 

*047503 

CO 

0  1020 

•042504 

DE 

01021 

•036440 

s 

0  1022 

•020040 

01023 

*  000000 

* 

01024 

•054014- 

PUNT: 

STA 

3,  SAUE+2 

iSAVE  ( AC3) 

01025 

*03001  15 

L  DA 

2,  TFL  S 

;#  TRIALS 

01026 

'050022- 

STA 

2,  WORK 

0  1027 

•030020 

LDA 

2,  20 

,-SAVE  (20) 

0  1030 

•050015- 

STA 

2,  SAVE+3 

01031 

•03002 1 

LDA 

2,2  1 

j SAVE  (21) 

0  1032 

•050016- 

STA 

2,  SAVE+4 

0  1033 

•030022 

LDA 

2,  22 

iSAVE  (22) 

0  1034 

'050017- 

STA 

2,  SAVE+5 

01035 

'  030023, 

LDA 

2,  23 

; SAVE  ( 23) 

01036 

•050020- 

STA 

2,  SAVE+6 

0  1037 

•030024 

LDA 

2,  24 

)SAVE  (24) 

0  1040 

'050021- 

STA 

2,  SAVE*  7 

01041 

'030004- 

LDA 

2, I STIM 

; ADDRESS  OF 

STIM  ARRAY 

01042 

•050020 

STA 

2,  20 

0  1043 

•030005- 

LDA 

2,  I  SPACE 

; ADDRESS  OF 

SPACE 

0  1044 

•05002 1 

STA 

2,j  2  1 

0  1045 

' 030006- 

LDA 

2,  I  PLACE 

; ADDRESS  OF 

PL  ACE 

01046 

•050022 

STA 

2,  22 

01047 

’  152400 

SUB 

2,  2 

;(AC2>  =  0 

01050 

*050031- 

STA 

2,  VOF.K+7 

;  FP  INDICATOR  =  0 

01051 

•020525 

AUDI: 

LDA 

0,  CHX 

;  CHECK  STIM 

0  1052 

•  1  13404 

AMD 

0,  2,  SZR 

,*  IMDI  CATOR 

01053 

'000423 

JM  P 

FOPD 

;NOT  FINISHED 

01054 

'020016$ 

LDA 

0,  CT 

;  RESET  FOR  NEW  BLOCK 

0  1055 

*  040023- 

STA 

0, VORK+ 1 

0  1056 

*020010- 

LDA 

0,  ACS 

0  1057 

' 040023 

STA 

0,  23 

0  1060 

'020516 

LDA 

0,  CHK 

)  CHECK  FP  IND 

01061 

'024031- 

LDA 

1,  VORK+  7 
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01062* 107404 

AND  0,  1,  SZP 

!  01063*000405 

JMP  .+5 

01064*020021$ 

L  DA  0,NFP 

0  1065*040024- 

STA  0,VORK+2 

01066*020007- 

L DA  0/ AFP 

01067*040024 

STA  0,24 

01070*026024 

L  DA  @1,24 

01071 *044030- 

STA  1, VORK+6 

01072’ 176400 

SUB  3,3 

01073*014024- 

DSZ  VOFK+2 

j CHECK  IF  THROUGH 

01074*034033- 

L DA  3,  ONE 

} FOREPERIODS 

0 1075*05403 1- 

STA  3, VORK+  7 

01076*026023 

FOFD: 

L  DA  @1,23 

} GET  STIM  FROM  TABLE 

01077*04602 1 

STA  @1,21 

J STORE  STIM  IN  SPACE 

01100*024030- 

LDA  1, VORK+  6 

,‘GET  CURRENT  FP 

01101*046022 

STA  @1,22 

,*  STORE  FP  IN  PLACE 

01  102*030021 

L  DA  2,  2  1 

J STORE  CURRENT  ADDRESS 

0 1103*052020 

STA  @2,20 

I  OF  SPACE  IN  STIM  ARRAY 

01 104*014022- 

DSZ  WORK 

S CHECK  TRIAL  COUNT 

01 105' 000402 

JMP  .+2 

01 106*000405 

JMP  MIX 

} GO  TO  MIX  IF  DONE 

01107* 152400 

SUB  2,2 

011  10*014023- 

DSZ  VOP.K+  1 

,*  CHECK  STIM  COUNT 

01111 *030033- 

LDA  2,  ONE 

,  SET  INDICATOR  TO  ONE 

0  1  1  12*000737 

JMP  AUDI 

01113’ 102400 

MIX: 

SUE  0, 0 

011  14  *040022- 

STA  0, WORK 

IZERO  TRIAL  COUNT 

01115*020035- 

LDA  0,  BLK 

,*  BLOCK  SIZE 

0  1  I  16*040406 

STA  0, SIZE 

i SET  PERMUTATION  PARAMETER 

0  1  1  17*024004- 

LDA  1,  I  STIM 

i SET  PERMUTATION  START 

0  1 120  *  125400 

INC  1,1 

0  1121*044402 

STA  1, PARIS 

,*  ADDRESS 

0  1  122*006005$ 

RM IX  j 

J  SR  @APRMT 

,*  CALL  PERMUTE 

01  123*000000 

PARI S: 

0 

0  1124*000000 

SIZE: 

0 

01  125*020035- 

LDA  0,  BLK 

01126*024022- 

LDA  1 ,  WORK 

0 1127* 107000 

ADD  0,  1 

y  INCREMENT  TRIAL  COUNT 

0 1130*044022- 

STA  1,  WORK 

01131 *03001 1$ 

LDA  2,  TRL  S 

01132*  132405 

SUB  1,2,  SNR 

,*  CH  ECK  I  F  DON  E 

0  1  133*000406 

JMP  TRANS 

} TO  COPY 

01134*020767 

LDA  0,  PARIS 

,’SET  UP  FOR  NEXT 

01  135*024035- 

LDA  1,  BLK 

l  PERMUTATION 

01136’ 123000 

ADD  1,0 

0  1137*040764 

STA  0, PARIS 

0  1  140*000762 

JMP  RM  IX 

01 14 1  *  02001  1$ 

TRANS: 

LDA  0,  TRL  S 

,’SET  UP  COUNT 

0  1  142*040022- 

STA  0, WORK 

0  1  143*020004- 

LDA  0,1  STIM 

J ADDRESS  OF  STIM  APPAY 

01  144*040020 

STA  0,20 

01145*020003- 

LDA  0,  I  FORE 

I  ADDRESS  OF  FP  ARRAY 

0  1146*040021 

STA  0,  2  1 

01  147*032020 

SFO : 

LDA  @2,  20 

1  GET  ADDPESS  STORED 

0  1  150*0  14020 

DSZ  20 

}  CURRENTLY  IN  STIM  ARRAY  jj 

0  1  15  1  *025000 

LDA  1,0,2 

;LOAD  AC  1  FROM  SPACE  '■ 

01  152*046020 

STA  @1,20 

,*  STORE  IN  STIM  ARRAY  1 

01  153' 020424 

LDA  0,  ACON 

,*GET  CONSTANT  9 

01  154*1  13000 

ADD  0,2 

,*  CREATE  NEW  ADDPESS  A 

0  1  155*025000 

LDA  1,0,2 

,’LOAD  AC  1  FROM  PLACE 
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_ J 

0  1156 

'  04602 1 

STA 

@1^21 

J  STORE  IN 

FOPE 

ARRAY 

01157 

•014022- 

DSZ 

WORK 

;  CHECK  IF 

DONE 

0  1160 

•000767 

JMP 

SFO 

01161 

•030034- 

L  DA 

2,  ZERO 

J  ZERO  REGISTER 

OVINC 

01  162 

•050025$ 

STA 

2.j  0 WIN  C 

01163 

*030015- 

LDA 

2,  SAVE+  3 

0  1164 

•  0S0020 

STA 

2,  20 

J RESTORE 

(20) 

01165 

•030016- 

LDA 

SAVE+4 

0  1166 

•050021 

STA 

2,  2  1 

j  PESTORE 

(21) 

01167 

•030017- 

LDA 

2,  SAVE+5 

01170 

•050022 

STA 

2j  22 

i RESTORE 

(22) 

01171 

•030020- 

LDA 

2,  SAVE+6 

01172 

•050023 

STA 

2*  23 

J  RESTORE 

(23) 

01173 

•030021- 

LDA 

2j  SAVE+7 

0  1174 

•050024 

STA 

2,  24 

S RESTORE 

(24) 

01175 

•002014- 

JMP 

eSAVE+2 

01176 

•  177777 

CHK : 

177777 

01177 

’  000400 

ACOMs 

400 

000400 

SPACE: 

.  ELK 

400 

000400 

PLACE: 

.  BLK 

400 

0  00400 

STIM: 

.  BLK 

400 

000400 

FORE: 

.  BLK 

400 

000020 

FPTAB: 

.  BLK 

20 

000100 

CSTaB: 

.  BLK 

100 

000 100 

P.TAB: 

.  BLK 

100 

.END 
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. TITL  MTAPE 
.ENT  AWEPB 

.  EXTD  EXP,  SUEJ,  GPOUP,  TRLS,  CT,NFP 
•  EXTD  PEPC,  ISTIM,  IFOPE,  ACODE,  ATIME 
.EXTD  AEOF 

SUBROUTINE  TO  DUMP  PT  DATA  ONTO  TAPE 


G.M.  OLSON 

1  1  DECEMBEF  1972  (A) 


102113 

.DALC  SGE=  ADCL  #  0,0,  SNC 

.  ZREL 

00000-000200*  AWD: 

UD 

00001-000204 •  ATB: 

TEN  DC 

00002-000000'  AVERB: 

START 

00003-000120'  ASP: 

I  SP 

.MPEL 

00000*054556  START: 

STA  3, SWAV  } SAVE  RETURN 

00001 '060474 

DIA  0,74 

>  GET  READY  BIT 

00002*  101100 

M  0 VL  0,  0 

00003  *101113 

MOVL#  0,0,  SNC 

READY? 

00004*000775 

JMP  .-3 

,*  wait 

00005*004467 

J  SR  LZEPO 

,*  VPITE 

LEADING  0 

00006*024001$ 

L  DA  1 ,  EXP 

; WRITE 

EXP.  NO. 

00007  *  00600 1- 

JSP  @ATB 

00010*004464 

JSP  LZERO 

000 1 1 *024002$ 

L  DA  1,SUBJ 

; WRITE 

SUEJ.  NO. 

00012*006001- 

JSP  SATE 

00013*00446  1 

JSP  LZEPO 

00014*024003$ 

L  DA  1 , GPOUP 

J  WRITE 

GPOUP  NO. 

00015*006001- 

JSP  @ATE 

00016*004456 

JSP  LZEPO 

000 1 7  *  024004$ 

L  DA  1 , TPL  S 

,*  WRITE 

NO.  TRIALS 

00020*006001- 

JSP  @ ATE 

0002 1 '004453 

JSP  LZEPO 

00022*024005$ 

L  DA  1 , CT 

; write 

NO.  STIMULI 

00023*006001- 

JSP.  @  ATB 

00024  *  004450 

JSP  LZEPO 

00025*024006$ 

LDA  1,NFP 

; WRITE 

NO.  FOREPEPIOD 

00026*006001- 

JSP  @  ATB 

00027*004445 

JSP  LZERO 

00030*024007$ 

LDA  1 , REPC 

; WRITE 

ERROR  CODE 

0003 1 ’ 00600  1- 

J  SR  @ ATB 

00032*020477 

LDA  0,  E I G 

00033*040537 

STA  0, WORK+  5 

00034*004440  MOPE: 

JSP  LZEPO 

00035*024471 

LDA  1,  Z  ERO 

00036*006001- 

JSP  @ATB 

00037*014533 

DSZ  WOPK+5 

00040*000774 

JMP  MORE 
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0004  1 

'004437 

JSP.  STALL 

00042 

'  020533 

L  DA  0,  IRG 

; WRITE  IPG 

00043 

*062074 

DOB  0,74 

00044 

'004434 

J  SR  STALL 

00045 

' 020010$ 

TSTM : 

L  DA  0, I STIM 

>  STOPE  STIM 

00046 

•040402 

STA  0,4+2 

00047 

•004463 

J  SR  PREP 

00050 

’ 000000 

0  ■ 

00051 

•004472 

J  SR  TAPE 

00052 

•02001 1$ 

TFF: 

LDA  0,1  FORE 

,*  STORE  FOPEPERI ODS 

00053 

•  040402 

STA  0,.+2 

00054 

•  004456 

JSP  PREP 

00055 

*  000000 

0 

00056 

•004465 

JSP  TAPE 

00057 

•020012$ 

TCD: 

LDA  0,  ACO  DE 

1  STORE  CODES 

00060 

•  040402 

STA  0,  .  +  2 

00061 

•00445  1 

JSP  PREP 

00062 

'  000000 

0 

00063 

*004460 

J  SR  TAPE 

00064 

•020013$ 

TTM : 

LDA  0,  ATIME 

; STORE  REACT I ON  TIMES 

00065 

•040402 

STA  0,  .  +  2 

00066 

•  004444 

JSP  PREP 

00067 

' 000000 

0 

00070 

•  004453 

JSP  TAPE 

00071 

•006014$ 

JSP  @AEO  F 

; WRITE  EOF 

00072 

•000001 

1 

00073 

•002463 

JMP  @SVAV 

00074 

•054464 

LZEPO : 

STA  3,  SVAV+2 

;  ROUT  INF  TO  WRITE  LEA 

00075 

•020501 

LDA  0,  C60 

00076 

' 006000- 

JSP  @AVD 

00077 

•002461 

JMP  ©SVAV+2 

00  100 

•054461 

STALL : 

STA  3,  SVAV+3 

,*  STORE  PETURM 

00101 

•020003- 

LDA  0,  ASR 

I  STORE  ISP  IN  LOC  1 

00102 

•040001 

STA  0, 1 

00103 

•020423 

LDA  0,  Z  ERO 

i  SET  COT'NT  TO  0 

00104 

•0404.23 

STA  0,  COUNT 

00105 

•020420 

LDA  0,  CLM  SK 

;SET  CLOCK  INTERRUPT 

00106 

•062177 

DOBS  0, CPU 

00107 

•020415 

LDA  0,  CLKFO 

,'SET  CLOCK  TICKING 

00110 

•061114 

DOAS  0,  PTC 

00111 

•024417 

LDA  1 ,  CON  S 

;  SET  CHECK  VALUE 

001  12 

•020415 

LDA  0,  COUNT 

00113 

•106113 

SGE  0,  1 

;  INTERVAL  OVER? 

00114 

•  000776 

JMP  .-2 

001  15 

•060277 

INTDS 

001  16 

•  060214 

NIOC  RTC 

00117 

•  002442 

JMP  @ SVAV+3 

00120 

•010407 

ISR: 

ISZ  COUNT 

00121 

•  060  1  14 

NIOS  PTC 

00122 

•060177 

INTEN 

00123 

•002000 

JMP  @0 

00  124 

•  00000 1 

CLKFO: 

1 

00125 

•  177773 

CLM  SK : 

177773 

00126 

•  000000 

ZERO: 

0 

00127 

•  000000 

COUNT: 

0 

00130 

•  000050 

CON  S: 

50 

00131 

•  000030 

BIG: 

30 

ROUTINE  TO  SET  UP  TRANSFER  TO  TAPE 
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SAVE  <  AC 3 )  +  1 


00132’ 054425 

PREP: 

STA  3, SWAV+ 1 

;s AVE  ( AC3 )  +  1 

00133*010424 

I  SZ  SVAV+ 1 

00134’ 021400 

LDA  0,0,3 

;get  stapt  addfess 

00 135 ' 024004$ 

L  DA  1,  TRL  S 

;get  number  of  trials 

00136*044427 

STA  1, WORK 

; store  number  of  trials 

00137 ’ 107000 

ADD  0,  1 

; generate  first  store  address 

00140* 125400 

INC  1,  1 

,‘CDATA  stored  in  reverse 
;  ORDER  BY  FT  PROGRAM) 

00141 *044030 

STA  1,30 

; STORE  ADDP.  TO  AUTO-DEC.  LOC 

00142*002415 

JMP  @SVAV+1 

; RETURN 

;  ROUTINE  TO  VP I  TE  ON 

TAPE 

00143  *05'' 414 

T.^r,r; 

STA  3,  SVA,J+  1 

00144*004730 

JS^  LZEPO 

,*  WRITE  LEADING  ZERO 

00145*026030 

LDA  1 , @30 

j  GET  NEXT  DATUM 

00146*006001- 

JSF  @ ATB 

; WRITE  ON  TAPE 

00147*014416 

DSZ  WORK 

00150*000774 

JMP  TAFE+  1 

00151 *004727 

JSP  STALL 

00152*020423 

LDA  0,  IPG 

,*  WRITE  IRG 

00153*062074 

DOE  0,74 

00154*004724 

JSP  STALL 

00155*002402 

jmp  esvAV+i 

000007 

SVA.V  : 

.  ELK  7 

000007 

WORK: 

.  ELK  7 

00174*000005 

FIVE: 

5 

00175*000004 

IPG: 

4 

00176*000060 

C60: 

60 

00177*000000 

SAVE: 

0 

;  C-.O.  MOELLER  BINARY  TO  ASCII  DECIMAL 

;  TAPE  WRITING  ROUTINES 

}  BASED  UPON  ENDEC  IN  "INTRODUCTION 
;  TO  PROGRAMMING  THE  NOVA  COMPUTER” 

I  COPYPIGHT  1972,  DATA  GENERAL  COFPOFATION 

;  REPRODUCED,  BY  PERMISSION 


00200 

*063574 

WD: 

SKPBZ  74 

00201 

*000777 

JMP 

.-  1 

00202 

*061 174 

DO  AS 

0,  74 

00203 

*001400 

JMP 

0,  3 

00204 

*054773' 

TEN  DC: 

STA 

3, SAVE 

00205 

•  034422 

LDA 

3,  INST 

00206 

•054401 

STA 

3,  •  +  1 

00207 

•000000 

LOOP: 

0 

00210 

•020766 

LDA 

0,  C60 

0021  1 

*  146443 

SUBO 

2,  1,  SNC 

002  12 

•10140  1 

INC 

0,  0,  SKP 

002  13 

•  14700  1 

ADD 

2,  1,  SKP 

002  14 

*000775 

JMP 

.-3 

00215 

*004763 

JSP. 

WD 

00216 

*010771 

I  SZ 

LOOP 

00217 

*  151203 

MOVE 

2,  2,  SNC 

00220 

*000767 

JMP 

LOOP 

00221 

*  002756 

JMP 

@SAVE 

000012 

.  FDX 

10 
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00222  * 023420  TENS: 
00223*001750 
00224*000144 
00225 '0000 12 
00226*00000 1 

0000  1  0 

00227*030413  INST: 


1  0000 
1000 
100 
10 
1 

•  RDX  8 

L  DA  2,  .  +TEN  S-L  OOP 
.END 
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. TITL  EOF 
.EMT  AEOF 


9 

SUBPOUT IN  E 

TO  WRITE  EOF  MARKS  ON 

9 

CALMA  TAPES 

,  WITH  PROPER  TIMING 

9 

CALL  IS  VIA 

JSP  ©AEOF 

9 

NUMBER  OF  EOF  MARKS 

9 

RETURN 

9 

9 

G.M.  OLSON 

9 

9  NOVEMBER 

1972  ( A> 

102113 

•  DALC  SGE 

=  AD  CL  #  0,0,  SNC 

.  ZPEL 

00000 

-  000000  * 

AEOF: 

EOF 

00001 

-000037 • 

ASP.: 

ISP 

•  NPEL 

00000 

*054450 

EOF: 

STA  3, SAVE 

,*  SAVE  (AC3)  +  1 

0000  1 

*010447 

ISZ  SAVE 

00002 

*025400 

L  DA  1,0,3 

,*  STOPE  NO.  OF  FILE 

00003 

•044446 

STA  1,SAVE+ 

1  IMARKS 

00004 

*02000  1- 

L  DA  0, ASP 

i STORE  ADDRESS  OF 

00005 

*04000  1 

STA  0,1 

ilMT.  POUTINE 

00006 

*020437 

L  DA.  0, Z  EPO 

IZEPO  TIME 

00007 

*040440 

STA  0,  COUNT 

J  COUNT 

000  10 

*020434 

L  BA  0, CLM  SK 

; SET  MASK 

000  1  1 

*062177 

DOBS  0, CPU 

000  12 

*02043  1 

L  DA  0,  CLKFQ 

,*SET  CLOCK 

000  13 

*061114 

DO AS  0, PTC 

I  TICKING 

00014 

•024443 

LDA  1,  INT  1 

000  15 

•0044  14 

JSP  CHK 

00016 

’020430 

VRT: 

LDA  0,  FMARK 

,‘VPITE  EOF 

000  17 

•062074 

DOB  0, 74 

00020 

*020425 

LDA  0,  Z  EPO 

IZEFO  TIME 

00021 

'040426 

STA  0, COUNT 

;  COUNT 

00022 

•024436 

LDA  1,  INT2 

S SET  SECOND 

00023 

*060  1  14 

NIOS  PTC 

,*  INTERVAL 

00024 

•060  177 

INTEN 

00025 

•004404 

JSP  CHK 

00026 

'  0  14423 

DSZ  SAVE+ 1 

00027 

•000767 

JMP  VRT 

00030 

*002420 

JMP  ©SAVE 

00031 

•020416 

CHK : 

LDA  0,  COUNT 

00032 

•106113 

SGE  0, 1 

00033 

•  000776 

JMP  ♦  - 2 

00034 

•060277 

INTDS 

00035 

'060214 

NIOC  PTC 

00036 

•  00  1400 

JMP  0,  3 

00037 

•010410 

I  SP: 

ISZ  COt*NT 

00040 

•060  1  14 

NIOS  PTC 

0004  1 

•060177 

INTEN 

00042 

'002000 

JMP  @0 

00043 

•  00000 1 

CLKFQ: 

1 

00044 

•  1  77773 

CLM SK : 

177773 

00045 

'  000000 

ZEPO: 

0 

00046 

•000010 

FMAPK: 

10 
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00047  *  000000  COUNT:  0 

000007  SAVE:  .  BLK  7 

000012  • RDX  10 

00057*000062  INTI:  50 

00060*000113  INT2:  75 

.END 


SUBROUTINE  TO  TYPE  OUT  THE  DATA 
FOR  EACH  SUBJECT 


« TITL  DATYP 
.  ENT  -AD AT,  I  TYP,  BTXT 

.  EXTD  AEN  DC,  APUTC, ADC BN,  AGETC,  AOUTP 
.  EXTD  APE,  TPLS,  ATYPE,  I  STIM,  IFORE 
.EXTD  ATIME,  ACODE 


i  ENTRY  IS  VIA  JSP§  ADAT 


;27  DEC  1972  -- 

J MODI  FI  ED  BY  G.M. 


00000 

-000064* 

BTXT: 

0000  1 

-000106* 

00002 

-000137' 

00003 

-000135* 

00004 

-000005* 

ADAT: 

00005 

-  000000 

I  TYP: 

00000 

•000000 

I  CT: 

00001 

*  000000 

DCT: 

00002 

' 000000 

ZERO: 

00003 

'  000000 

EVAS: 

00004 

*000001 

ONE: 

00005 

*054776 

GO  DAT 

00006 

•024005- 

00007 

*020775 

000  10 

*  1064  15 

000  1  1 

*002772 

00012 

*02000 1- 

00013 

•006010$ 

00014 

•020007$ 

00015 

•040764 

00016 

•024764 

00017 

•044761 

00020 

•010760 

POOL: 

00021 

•024757 

00022 

•006001$ 

00023 

•020002- 

00024 

•006010$ 

00025 

•034754 

00026 

•0300  1  1$ 

00027 

•  1  73000 

00030 

*025000 

00031 

•006001$ 

00032 

•020002- 

00033 

•006010$ 

00034 

•034745 

00035 

•030012$ 

00036 

•  173000 

00037 

•  025000 

00040 

•006001$ 

.  ZF.EL 

TXT  30 

TXT  31 

SPACE 

LINE 

GO  DAT 

0 

.NREL 

0 

0 

0 

0 

1 

STA 

3,  EVAS 

L  DA 

1 ,  I  TYP  . 

lda 

0,  ON  E 

SUB# 

0,  1,  SNR 

JMP 

§EVAS 

LDA 

0, BTXT + 1 

J  SR 

0ATYPE 

LDA 

0,  TRLS 

STA 

0,  DCT 

LDA 

1,  Z  ERO 

STA 

!,  I  CT 

I  SZ 

I  CT 

LDA 

1,  I  CT 

JSR@ 

AEN  DC 

LDA 

0,  BTXT+2 

J  SR@ 

ATYPE 

LDA 

3,  DCT 

LDA 

2,  ISTIM  , 

ADD 

3,  2 

LDA 

1,0,2 

JSPe 

AEN  DC 

LDA 

0, BTXT+2 

JSP@ 

ATYPE 

LDA 

3,  DCT 

LDA 

2,  IFORE 

ADD 

3,  2 

LDA 

1,0,2 

J  SR§ 

AEN  DC 

KEVIN  LAXAR 
0.  —  19  MARCH  1973(A) 


; QUERY  PE  DATA  TYPE  OUT 
CHECK  FOR  "NO" 

IF  NO,  PROCEED 

,'IF  YES,  TYPE  HEADING 


STORE  #  TRIALS  IN  DCT 
INITIALIZE  CTR. 


PRINTS  TRIAL  NUMBER. 

SPACES  FOP  NEXT  CHAR. 

(ISTIM)  INTO  AC2 
AC2=  ISTIM  +  TRIALS  COUNT 
PUTS  (ISTIM  +  TRIALS)  INTO  AC0 
TYPES  TOE  STIMULUS  CODE. 

; SPACES 


PUTS  (IFORE  +  TRIALS)  INTO  AC  1 
TYPES  FOREPERIOD. 
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00041 *020002- 

L  DA 

0,  BTXT+2 

00042  *  0060 1 0$ 

JSR@ 

ATYPE 

;  sp 

00043  *  034736 

L  DA 

3,  DCT 

00044*0300 13S 

L  DA 

2*  ATIME 

00045* 173000 

ADD 

3,  2 

00046*025000 

LDA 

1,  0,  2 

00047*006001$ 

jsp@ 

ABN  DC 

00050*020002- 

LDA 

0,  BTXT+2 

00051*006010$ 

J  SR@ 

ATYPE 

00052*034727 

LDA 

3,  DCT 

00053*0300 14$ 

LDA 

2,  ACODE 

00054 ’ 173000 

ADD 

3,  2 

00055*025000 

LDA 

1,0,  2 

00056*006001$ 

JSR@ 

ABN  DC 

00057*020003- 

LDA 

0,  BTXT+3 

00060*006010$ 

JSP@ 

ATYPE  JCB 

AND  LF. 

00061*014720 

DSZ 

DCT  } DECP  CTP 

00062*000736 

JMP 

POOL  ;if 

CTP  NOT 

JTRI 

AL. 

00063*002720 

JMP 

©EVAS  ;if 

CTP=  0, 

00064*005015  TXT30: 

.TXT 

*< 1 5><  1  2> 

00065 
00066 
00067 
00070 
0007  1 
00072 
00073 
00074 
00075 
00076 
00077 
00100 
00101 
00102 
00103 
00104 
00105 
00106 
00107 
00  110 
00111 
00112 
001  13 
001  14 
00115 
001  16 
001  17 
00120 
00121 
00122 
00123 
00124 
00125 
00126 
00127 
00130 
00131 


052012 
050131 
020105 
052517 
020124 
040504 
040524 
020077 
030450 
047051 
0201  17 
051117 
024040 
024462 
042531 
020123 
000040 
005015 
052012 
044522 
046101 
020040 
052123 
04651  1 
046125 
051525 
020040 
043040 
050040 
020040 
020040 
051040 
052040 
020040 
020040 
041440 
042  1  17 


<  12>T 
YP 

E 

OU 

T 

DA 

TA 

? 

C  1 
)N 
0 

OP. 

< 

2) 

YE 

S 

♦ 

TXT 31 : 

<  1  2>T 
PI 

AL 

ST 

IM 

DL 

US 

F 

P 


R 

T 


,  TXT 


*< 1 5><  1  2> 


C 

OD 
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00132*006505  E< 1 5> 

00133*005012  < 12><  12> 

00134  *000000  * 

00135*005015  LINE:  .TXT  *<!5><12> 

00136*000000  * 

00137*020040  SPACE:  .TXT  * 

00 140  *000040  * 

.END 
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FANDOM  NIMEER  GEN  FF ATOP  (FELOCATAELE  STTEPOVTINE) 
GENERATES  A  (PSEUDO)  FANDOM  SEQUENCE  OF  INTEGERS 
IN  THE  FAMGE  0<  =  N  <  =  2**  16-1 


3  INPUT: 


ADDFESS  OF  OLD  VALUE  POINTED  TO  EY  WORD 
AFTER  JSP 


3  OUTPUT :  16- BIT  NEW  FANDOM  N^MEER  IN  AC0 

3  AND  IN  STORAGE  REPLACING  OLD  VALUE 

J  CALLING  SEQUENCE: 

;  JSP  SAP  AND 

3  ADDRESS  OF  OLD  VALUE 


GENERATES  A  LINEAR  CON  GPUEMTI AL 
SEQUENCE  OF  THE  FOPM: 

XCN+l)  =  (X (M  )*  A+C  )MOD  2**16 


;  RETURN 

;  METHOD: 


3  CAUTION:  IF  A  K-EIT  FANDOM  MVMF.EP  (AS  OPPOSED 

;  TO  A  16-  El  T  NUMBER)  IS  NEEDED, 

3  USE  THE  MOST  SIGNIFICANT 

3  K-  BITS  (THE  LEAST  SIGNIFICANT  K-EITS 

3  ARE  NOT  AS  FANDOM). 

3  FOP  EXAM  PL  F,  TO  OETAIM  FANDOM  M  MOD  2, 

3  USE  THE  SIGN  El  T  OF  THE  RESULT 


3  UNCHANGED:  AC1,  AC2 

3  DESTROYED:  .  AC0,  AC 3,  CARRY 


3  POUTINE  ADAPTED  FROM  NOVA  MATH 
3  SUBROUTINE  LIBFAFY 

3  COPYRIGHT  1969,  DATA  GENERAL  COFPOPATION 

J  REPRODUCED  BY  PERMISSION 

• 

> 

3  ADAPTED  BY  G.M.  OLSON 

3  22  AUGUST  1972  (A) 

.  TITL  PANDI 
•  ENT  AFAND 


.NPEL 


00000 ' 054432  .PAND: 

STA 

3,  .  UD03 

J 

SAVE  RETURN 

0000 1*010431 

I  SZ 

.  t'D03 

J 

BUMP  PAST  ADDRESS  CONSTANT 

00002  *0/1/1426 

STA 

1,  .  UD0  1 

J 

*SAVE  AC  1 

00003 ' 050426 

STA 

2, . UD02 

J 

*SAVE  AC2 

00004  *031400 

L  DA 

2,  0,  3 

J 

GET  ADDRESS  OF  OLD  VALVE 

00005*021000 

L  DA 

0,  0,  2 

J 

OLD  VALUE  TO  AC0 

00006 ’ 004407 

JSP 

.  UD50 

J 

N*  A 

00007*034425 

L  DA. 

3, . UD20 

J 

GET  INCREMENT,  C 

00010  *  163000 

ADD 

3,  0 

J 

( N *  A+  C )  MOD  2**16 

0001 1 *041000 

STA 

0,  0,  2 

J 

STORE  IT 

00012*024416 

L  DA 

1,  .  UD0  1 

J 

* FESTOF.E  AC  1 

00013*030416 

LEA 

2,  .  UD02 

J 

* FESTOPE  AC 2 

00014*002416 

JMP 

UD03 

J 

RETURN 

COMPUTE  N*  (  2**  1  l  +  2**2+ 1 ) 


D-43 


000 15*024420  .UB50:  L  DA  1,.UD21 

000  1 6  *  0444  1  5  STA  1,.UD10 

000 17 ' 105 120  MOVZL  0,1 

00020’  125120  MOVZL  1J 

0002 1  *  0  144 1 2  DSZ  .UD10 

00022  *000776  JMP  .-2 

00023’ 107000  ADD  0,1 

00024 ’ 125120  MOVZL  1,1 

00025’ 125120  MOVZL  1,1 

00026’ 123000  ADD  1,0 

00027*001400  JMP  0,3 


,•  GET  COUNT,  X 
i  FOP  I TEPATI ON 
;  N* 2** (X+ 1 ) 


;  2**2*(N* 2**  CX+  1 )  +11 ) 
S  N  +N*2**  2+N*  2** ( X+  3 ) 


00030*000000 

.  t’D0  1 : 

0 

;  *  SAVE  AC  1 

0003  1  ’000000 

. VD02: 

0 

;  *  SAVE  AC2 

00032 ’ 000000 

. UD03: 

0 

,*  SAVE  RETURN 

00033*000000 

•  UD 10s 

0 

,*  ITERATION  COUNT 

00034*033031 

♦  UD20: 

33031 

;■  INCREMENT 

00035’ 000010 

.  UD21: 

10 

;  ITERATION  COUNT 

.  ZREL 

00000-000000’ 

APAMD: 

.  PAM  D 

.END 
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.titl  permute 

.  FNT  APPMT,  OLD 
•  EXTP  APAND 

;  P  FLO  CAT  ABLE  SUBROUTINE  TO  PAM  DOM  LV 

i  PEPMT’TE  THE  CONTENTS  OF  N  ADJACENT 
JMFMOPY  LOCATIONS.  PFGT’IPFS  PFLOCATAELF 
>  PAN DOM  MtMBEP  GEN EP ATOP  ACDPESSED  BY 
;  ©APAND. 


;  CALL  TO  PFPMt’TE  I  St 

;  JSP  §  APPMT 

J  ADDRESS  OF  ARRAY 

i  SIZE  OF  APPAY 

;  RETURN 

>  SEED  FOP  FANDOM  NVMEEP  GEN EP ATOP  IE 

;  PASSED  1'IA  LOCATION  •'OLD"  ON  ZERO  PAGE. 

J 

>  G.M.  OLSON 

i  22  AUGUST  1972  (A) 

.  Z  PEL 

00000-000000'  APPMT:  PEP 
00001-000000  OLD:  0 


.NEEL 


00000 

'054463 

PEP: 

STA 

3, PM  SAP 

0000  1 

*010462 

ISZ 

PM  SAP 

;  INCREMENT  PETUPN 

00002 

'0  1046  1 

ISZ 

PM  SAP 

} ADDPESS  EY  2 

00003 

■030020 

LDA 

2,  20 

,'SA.VE  (20) 

0  0004 

•050460 

STA 

2,  PMSAV+  l 

00005 

•03140  1 

LDA 

2,  1,3 

,'SIZE  OF  APPAY 

00006 

•050447 

STA 

2,  PCTP 

00007 

'014446 

DSZ 

PCTP 

;  DECREMENT  FOP  RANGE  TESTS 

00010 

'050446 

STA 

2, Z  CTR 

000  1  1 

'  102460 

SPEC  0, 0 

000  12 

'040445 

STA 

0, BI TC 

,‘ZEPO  BIT  COUNTER 

00013 

'151  123 

MOUZL  2,  2,  SMC 

J  CHECK  NEXT  BIT 

000  14 

'000402 

JMP 

.  +2 

;  IF  =  0 

00015 

'000403 

JMP 

.  +  3 

'i* 

H 

n 

000  16 

'01044 1 

I  sz 

El  TC 

;  IN  CP  EM  ENT  El  T  COUNT 

00017 

'000774 

JMP 

.  -4 

; ITEPATE 

00020 

'031400 

LDA 

2,  0,  3 

;addfess  of  appay 

00021 

'050020 

STA 

2,  20 

; SAVED  IN  LOC  20 

00022 

'050437 

STA 

2, ASAV 

00023 

•014020 

DSZ 

20 

;eack  UP  ONE 

00024 

•020433 

AGAIN: 

LDA 

0, El TC 

J  GFT  BIT  COUNT 

00025 

'040435 

STA 

0,  LAX 

J  STOPE  IN  LAX 

00026 

'006001$ 

JSP 

©APAND 

;get  a  pandom  number 

00027 

'00000 1- 

OLD 

00030 

' 101220 

MOUZP  0,0 

;  SHI  FT  PANDOM  NUMEEF 

00031 

'01443  1 

DSZ 

LAX 

; decrement  bit  coitjt 

00032 

’000776 

JMP 

.  -2 

J LOOP  • 

00033 

'024422 

LDA 

1,  FCTF 

JVHEM  DONE  SHIFTING, 

00034 

'  122033 

ADCZ #  1,0,  SNC 

J CHECK  IF  GPEATEP 

00035 

'000402 

JMP 

.+2 

J  THAN  SIZE  OF  APPAY 

00036 

•000766 

JMP 

AGAIN 

;  GET  NEV  PANDOM  NUMBER 

00037 

•026020 

LDA 

1,  @20 

,'GET  ADDPESS  OF  NEXT 

; APPAY  EL EM  PIT 
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SET  ASIDE 

BACK  UP  ADDFESS  COUNT 


00040*044420 

STA 

1  ,  TEMP 

,*SET  ASIDE 

0004  i  *0  14020 

DSZ 

20 

JBACK  UP  ADDFESS  COUNT 

00042*030417 

L  DA 

2,  ASAV 

00043  *  1  13000 

ADD 

0,  2 

; CREATE  ADDFESS  FOP 

,*  SVAP  " 

00044*025000 

L  DA 

1,0,  2 

>  SWAP  OLD  <  20 ) 

00045*046020 

STA 

1,  @20 

I  AND  (STAPT  +  X) 

00046*024412 

L  DA 

1,TEMP 

00047*045000 

STA 

1,0,2 

00050*014406 

DSZ 

ZCTF 

;  decrement  pange  cot’nt 

00051 *000753 

JMP 

AGAIN 

;  loop 

00052*030412 

L  DA 

2,  PMSAV+  1 

,-RESTOPE  (20) 

00053*050020 

STA 

2,  20 

00054  *  002407 

JMP 

@PMSAV 

00055*000000 

PCTP: 

0 

00056*000000 

7,  CTP: 

0 

00057*000000 

BITC; 

0 

00060*000000 

TEMP: 

0 

00061  *000000 

ASAV: 

0 

00062*000000 

LAX: 

0 

000002 

PM  SA,;: 

.  ELK 

:  2 

.END 
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IN  OUT 


SUBROUTINE  PACKAGE  CONTAIN IM G 
PUTC,  GETC,  bnoct,  octem,  endec,  and 
DECBN  IN  FFLOCATAELE  FOPM, 

VI TH  ENTFY  POINTS  APUTC,  AC-ETC,  A  EM  0  C  , 

AO  CBN,  ABM  DC,  AND  ADCEN.  FOLLOWING 
ASSUMPTIONS  APE  MADE  ON  ENTFY; 

PUTC;  CHAPACTEP  TO  TTO 
IN  AC 0 ■ 

GETC:  CHAPACTEP  FFOM  TTI 

IN  AC0 

ENOCTt  BIMAPY  NUMBER  INPUT 
TO  BN  OCT  IS  IN  AC  1 
OCTEM:  EINAPY  MUMBEF  OUTPUT 

FFOM  OCTBN  PILL  EE 
IN  AC  1 

BN  DEC:  BINARY  NUMBER  I f'jpVT 
TO  HI  DEC  IS  IM  AC  1 
DECBN:  BINARY  MUMBEF  OUTPUT 

FFOM  DECBN  WILL  BE 
IM  AC  1 

ALL  SUBROUTINES  REQUIRE  AC0,  AC  I,  AND  AC3. 
IN  ADDITION,  BN  OCT  AND  BN  DEC  ALSO 
PEQUIPF  AC2. 

SPECIAL  NOTES:  IF. GETC  IS  TO  EE 

EMTEPED  EECAUSE  OF  A  TTI 

INTERRUPT,  THE  ENTRY  POINT  MUST  BE 

IGETI,  AND  IT  VILL  BE  ASSUMED 

THAT  NIOS  TTI  OP  THE  EQUIVALENT 

VILL  BE  PART  OF  THE  INTERRUPT  SERVICE 

ROUTINE. 

*******  ALL  THESE  ROUTINES  EXCEPT  DECBN 
APE  COPIES  OP  ADAPTATIONS  OF  THOSE 
DESCRIBED  IN  THE  DATA  GEMEPAL  MANUAL, 
"INTRODUCTION  TO  PROGRAMMING  THE  NOVA 
COMPUTERS."  PROGRAM  LISTINGS  AND 
COMMENTS  APE  IN  APPENDIX  A  OF  THAT 
MANUAL.  DECBN  IS  COPIED  FPOM  THE 
MATH  ROUTINE  LIEPARY,  AND  IS 
DESCRIBED  IN  THE  APPROPPIATE 
DOCUMENTATION.  COPYRIGHT  1969, 

1970,  1971  DATA  GENERAL  CORPORATION 

PEPPODVCED  EY  PERMISSION. 

THE  SPECIAL  FEATPPES  OF  DECBN 
APE  PRESERVED  IN  THIS  VEPSION. 

CONSULT  THE  MATH  LIBRARY  DO  CEMENTS 
FOP  DETAILS. 


G.M.  OLSON 

14  DECEMBEP  1972  (A) 


.TITL  INOUT 

.ENT  APUTC,  AGETC,  AENOC,  AOCBN 
.ENT  ABN  DC,  ADC  BN,  IGETI,  IDBIN 
•  NFEL 

00000*054416  BN OCT:  STA  3,  SAVE 

00001*152620  SUBZF.  2,2 

00002*020413  LOOP:  LDA  0, C60 
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00003 

•  146443 

00004 

•101401 

00005 

•  14700  1 

00006 

•000775 

00007 

•004437 

00010 

•  151220 

000  1  1 

•  151220 

000  12 

•  151224 

000  13 

•000767 

000  14 

•002402 

000  15 

•  000060 

C60: 

000007 

■  SAVE: 

00025 

•054517 

GET I : 

00026 

•  000403 

00027 

•054515 

GETC: 

00030 

•060  1  10 

00031 

•063610 

00032 

•000777 

00033 

•060610 

00034 

•034513 

00035 

•  163400 

00036 

•004410 

00037 

•034507 

00040 

•  1 16404 

0004  1 

•  002503 

00042 

•020506 

00043 

•004403 

00044 

•020502 

00045 

•002477 

00046 

•06351 1 

PUTC: 

00047 

•000777 

00050 

•061111 

00051 

•  101004 

00052 

•001400 

00053 

•054472 

000  54 

•020472 

00055 

•004771 

00056 

•020472 

00057 

•004767 

00060 

*  102400 

00061 

•  002464 

00062 

•054734 

BNDEC 

00063 

•034460 

00064 

•054454 

00065 

•034454 

00066 

•054451 

00067 

•034446 

00070 

•054401 

00071 

'  000000 

KOOP: 

00072 

•020723 

00073 

•  146443 

00074 

•  101401 

00075 

’  14700  1 

00076 

•000775 

00077 

•050720 

00  1  00 

•014437 

St’BO 

2,  1,SNC 

INC 

0, 0; SKP 

ADD 

2,  1,  SKP 

JMP 

.  -3 

JSP 

PUT  C 

MOVZP 

2,  2 

MOVZP 

2,  2 

MOVZP 

2, 2, SZP 

JMP 

LOOP 

JMP 

@Save 

60 

.ELK  7 


STA 

3j  SGET 

JMP 

.  +3 

STA 

3, SGET 

NIOS 

TTI 

SKPDN 

TTI 

JMP 

.  -  1 

DIAC 

0,TTI 

LDA 

3,MSK 

AND 

3,  0 

JSP 

PUTC 

LDA 

3,  CP 

SUB 

0,  3,  SZP 

JMP 

§  SGET 

LDA 

0<LF 

JSP 

PUTC 

LDA 

0,  CP 

JMP 

®SGET 

SKPEZ 

TTO 

JMP 

1 

DOAS 

0#  TTO 

MOV 

0,  0,  SZP 

JMP 

0,  3 

STA 

3,  SPUT 

LDA 

0.  CP 

JSP 

PUTC 

LDA 

0,LF 

JSP 

PUTC 

SUB 

0t  0 

JMP 

@  S  PUT 

STA 

3,  SAVE 

LDA 

3,  ZERO 

STA 

3, SUPP 

LDA 

3,  FIVE 

STA 

3, LAST 

LDA 

3,  INST 

STA 

3;  •  +  1 

0 

LDA 

0,  C60 

SUBO 

2,  1/  SNC 

INC 

0,  0,  SKP 

ADD 

2,  1,  SKP 

JMP 

.-3 

STA 

2>  SAVE+ 

DSZ 

LAST 
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00101 

•  000402 

JMP 

♦  +  2 

00102 

•000420 

JMP 

SOAR 

00103 

•034435 

LDA 

3, SUPP 

00104 

’  030437 

LDA 

2>Z  ERO 

00105 

’  1  56414 

SUB# 

2,  3,  SZ  P. 

00  106 

•  0004  14 

JMP 

SOAP 

00107 

•030433 

LDA 

2,  ONE 

001  10 

•034705 

LDA 

3/  C60 

00111 

•116414 

SUB# 

0, 3, SZP 

001  12 

•000407 

JMP 

SOAR- 1 

001  13 

•040705 

STA 

0,  SAVE+2 

00  1  14 

•020422 

LDA 

0,  BLANK 

00115 

•  00473 1 

J  SR 

PUTC 

001  16 

•020702 

LDA 

0,  SAVE+2 

001  17 

’  030700 

LDA 

2, SAVE+ 1 

00120 

•  000404 

JMP 

SOAP+2 

00121 

•050417 

STA 

2j  SUPP 

00122 

•  004724 

SOAR: 

J  SR 

PUTC 

00123 

•030674 

LDA 

2, SAVE+ 1 

00124 

•010745 

ISZ 

KOOP 

00125 

•151203 

MO  VP 

2,  2,  SNC 

00126 

•000743 

JMP 

KOOP 

00127 

•002667 

JMP 

@SAVE 

000012 

«  PDX 

10 

00130 

•  023420 

TENS: 

1  0000 

00131 

•001750 

1000 

00132 

•000144 

100 

00133 

’  0000  12 

10 

00134 

•00000  1 

1 

0000  1  0 

«  RDX 

8 

00135 

•030437 

INST: 

LDA 

2>  .  +TEN  S-KOOP 

00136 

•  000040 

BLANK: 

40 

00137 

•000000 

LAST: 

0 

00140 

•  000000 

SUPP: 

0 

00141 

•000005 

FIVE: 

5 

00142 

•  00000  1 

ONE: 

1 

00143 

•  000000 

Z  ERO : 

0 

00144 

•000000 

SGET: 

0 

00145 

’ 000000 

5  PUT: 

0 

00  146 

•000015 

CF: 

15 

00147 

•000177 

MSK: 

177 

00150 

•000012 

LF: 

12 

00151 

•054645 

OCTEN: 

STA 

3/ SAVE 

00152 

•  126400 

SUB 

1,  1 

00153 

•004654 

OCT  1 : 

J  SR 

GETC  - 

00154 

•034772 

LDA 

3/  CR 

00155 

•  1  16415 

SUB# 

0,  3,  SNR 

00156 

•002640 

JMP 

©save 

00157 

•034406 

LDA 

3 j  C7 

00160 

•  163400 

AND 

3/  0 

00161 

•127120 

ADDZL 

l,  l 

00162 

•  125120 

MOVZL 

l,  l 

00163 

•  107000 

ADD 

0,  l 

00164 

•000767 

JMP 

OCTl 

00165 

•  000007 

C7 : 

7 
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00  1  66 

*054455 

. DEMI : 

STA 

3, . EC03 

J 

SAVE  PETURM 

00167 

*050453 

STA 

2, . EC02 

J 

SAVE  AC 2 

00170 

*020462 

L  DA 

0,  . EC24 

* 

J 

GET  "S" 

00171 

•006002- 

JSP 

@  A PUT  C 

s 

SEMD  ’’S’’ 

00  172 

’ 102400 

SUB 

0,  0 

1  73 

*006002- 

JSP 

6APUTC 

y 

SEMD  MI’LL 

00174 

*  00040  3 

JMP 

.  +  3 

00175 

*054446 

DECEM : 

STA 

3,  .  EC03 

y 

SAVE  AC3 

00  176 

*050444 

STA 

2, . EC02 

y 

SAVE  AC 2 

00177 

’ 102400 

SUB 

0,0 

00200 

•040444 

STA 

0, . EC  10 

J 

CLEAP  SIGN  UOPD 

00201 

•040444 

STA 

0,  . EC  1  1 

• 

y 

CLEAR  SUM  UOPD 

00202 

•006003- 

JSP 

@AGETC 

y 

GET  A  CHARACTER 

00203 

•024443 

L  DA 

1,  .  EC20 

y 

TEST  FOP  *•+•• 

00204 

•  106405 

SUB 

0,  1,  SNP 

00205 

•  000405 

JMP 

.  EC9  7 

y 

YES 

00206 

•  02444  1 

L  DA 

1,  .  EC2  1 

y 

NO,  TEST  FOR 

00207 

•  106404 

SUB 

0,  1,  SZP 

00210 

•000403 

JMP 

.  EC9  6 

s 

NO  EXPLICIT  SIGN 

0021  1 

•010433 

I  SZ 

.  EC  10 

y 

SET  FLAG  UOPD  FOR  NEGATIVE 

y 

NUMBER 

002  12 

•006003- 

.  EC9  7: 

JSP 

@  AG  ETC 

y 

GET  ANOTHER  CHAR  ACT  EP 

002  13 

•024435 

. EC96: 

LDA 

1, . EC22 

• 

y 

ASCII  ”0" 

00214 

•030435 

L  DA 

2, . EC23 

y 

ASCII  ’'9” 

002  15 

’  142033 

ADCZ #  2,0,  SMC 

y 

SKIP  IF  >  9 

002  16 

’  106032 

ADCZ #  0,  1, SZC 

y 

SKIP  IF  >=  0 

002  17 

•000406 

JMP 

.  EC9  5 

y 

MOT  A  DIGIT,  THERFORE  A  BREAK 

y 

CHAPACTEP 

00220 

•  122400 

SUB 

1,0 

• 

y 

REDUCE  DIGIT  TO  0-9  BINARY 

y 

RANGE 

0022  1 

*024424 

LDA 

1,  .  EC1  1 

• 

y 

SUM  VORD 

00222 

•0044  12 

J  SR 

.  EC50 

• 

y 

MULTIPLY  EY  10  AMD  ADD 

00223 

•044422 

STA 

1,.  EC1  1 

« 

y 

SAVE  SUM 

00224 

•000766 

JMP 

.  EC9  7 

• 

y 

GET  NEXT  CHARACTER 

00225*024420 

•  EC9 5:  LDA  1 ,  -  EC  1  1 

l 

RESULT  TO 

AC  1 

00226’ 125120 

MOVZL  1,  1 

00227 ’ 0 144 1 5 

DSZ  .EC  10 

y 

TEST  SIGN 

00230’ 12522 1 

MOVER  1,1,  SKP 

j 

POSITIVE 

0023 1 • 124640 

NEGOR  1,  1 

y 

NEGATIVE 

00232 ’0304 10 

LDA  2,  .  EC02 

• 

y 

RESTORE  AC2 

00233*0024  10 

JMP  EC0 3 

;  ROUTINE  TO  MULTIPLY 

AC  1 

EY  10  AND 

ADD  AC0 

00234 ’ 131 120  • EC50: 

MOVZL  1,2 

y 

N*  2 

00235 ’ 151120 

MOVZL  2,2 

y 

N*4 

00236’  147000 

ADD  2,  1 

y 

N*  5 

00237’ 125120 

MOVZL  1,  1 

y 

N*  5*  2  = 

N*  !  0 

00240’ 107000 

ADD  0, 1 

• 

y 

ADD  AC0 

0024 1 *001400 

JMP  0,3 

• 

y 

SUCCESS 

RETURN 

00242 • 000000 

. EC02: 

0 

;  SAVE 

AC2 

00243*000000 

. EC03: 

0 

;  SAVE 

AC  3 
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00244  *  000000 

. EC  1 0: 

0 

• 

J 

FLAG 

VORD 

FOR 

SIGN  OF  RESULT 

00245*000000 

. EC1 Is 

0 

* 

J 

RUNNING  SUM  VORD 

00246*000053 

•  EC  2  0 « 

ASCI  I 

00247*000055 

. EC2 1 : 

J 

ASCI  I 

1 1  ^  t» 

00250*000060 

. EC 22: 

"0 

J 

ASCII 

”0" 

00251 '000071 

. EC23: 

"9 

ASCII 

*t^  tt 

00252*000123 

. EC24: 

"S 

J 

ASCI  I 

"S" 

FOR 

INDICATION 

J 

ENTRY 

.ZPEL 

00000-000062* 

AENDC: 

BNDEC 

00001-000175’ 

ADCHJ  : 

DECBN 

00002-000046* 

APUTC: 

PUTC 

00003-000027* 

AGETC: 

GETC 

00004-000000’ 

AENOC: 

ENOCT 

00005-000  151  * 

AOCBN : 

OCTEN 

00006-000025* 

I GETI : 

GETI 

00007-000166* 

IDBIN: 

.  DENI 

.END 


;BYTE  POINTFF  SUEPT,  steps  thpu  message 
j  typing  until  encounters  null  charactfp. 


;  VFITE  TO  VPITE+7  TAKEN  FROM 

•  "HOU  TO  USE  THE  NOVA  COMPUTERS" 

J  COPYPIGHT  1971,  FATA  GENERAL  COPPOPATION 
J  REPRODUCED  EY  PERMISSION 
; 

;  CALL  AS  FOLLOVSt  (MESS=MESSAGE  ADDRESS) 

,*  L  DA  0.MESS 

;  MOVZL  0,0 

;  STA  0, . +2 

;  J  SR  @  AO  UT  P 

;  0 

;  RETURN  HERE 

• 

» 

;BMAN  +  PUTC  USE  ALL  AC.  SAVE  AC1+AC2 
}  ON  ENTRY,  RESTORE  ON  FETUPN 


G.O.  MOELLER 
AUGUST  19  1972  (A) 


.TITL  BM AN 
.ENT  AOUTP 
. EXTD  APUTC 
.  MPFL 


00000 ' 0  54424 

OUTP: 

STA 

3, SVOUT 

00001 ’054424 

STA 

3, SVOUT+ 1 

00002 ’ 050424 

STA 

2, SVOUT+2 

00003 ’ 044424 

STA 

1, SVOUT+3 

00004 ' 010420 

I  sz 

SVOUT 

J  STEP 

THRU  MESSAGE 

00005 ’ 032420 

WRITE: 

L  DA@ 

2,  S,rOUT+  1 

00006 '012417 

I  SZ® 

SVOUT+ 1 

00007’ 151220 

MOUZP 

2,  2 

00010' 02 1 000 

L  DA 

0,  0,  2 

0001 1 ’030412 

L  DA 

2, C377 

00012' 101002 

MOV 

0, 0, SZC 

00013' 101300 

MOVS 

0,  0 

000 14 ' 143405 

AND 

2,  0,  SNR 

000 1 5 ’ 000403 

JMP 

•  +  3 

000  16' 00600 1  $ 

J  SR® 

APUTC 

00017' 000766 

JMP 

VP  I  TE 

00020' 030406 

LEA 

2, SVOUT+2 

0002 1 '024406 

L  DA 

1, SVOVT+  3 

00022 ' 002402 

JMP® 

SVQUT 

00023 ' 000377 

J 

C377: 

377 

000004 

SVOVT: 

.  ELK  4 

.  ZFEL 

00000-000000' 

AOUTP: 

OUTP 

* 

.END 

; CF  "HOV  TO. .  ",  2-21 
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}  SUBROUTINE  TO  CLEAR  M  LOCATIONS, 

;any  area  beyond  end  of  zmem. 

i ZM  EM  REQUIRES  30  WORDS. 

>  CALL  WITH  J SR©  ACLEP.. 

;IF  JSP  LOCATED  AT  PC 
IPC+1  =  MO.  LOCS  TO  CLE.AP 
IPC+2  =  ADDRESS  OF  AREA. 

J 

i  ZM  EM  USES  LOC  20,AC2,AC3 
; SAVES  PREVIOUS  (20)  +  ( AC2) 

}  AS  ANY  J  SR*  SAVE  ( AC3)  BEFORE 
} CALL  -  IF  NECESSAPY. 

> 

i  G.o.  MOELLER 

;  11  AUGUST  1972  (A) 


.TITL 
.  ENT 
.NREL 


NZMEM 

ACLEP 


00000 

•054425 

CLEAR: 

STA 

3,  CTS 

0000  1 

•  010424 

I  SZ 

CTS 

00002 

•010423 

ISZ 

CTS 

00003 

•050423 

STA 

2, CTS+  1 

00004 

•030020 

L  DA 

2,  20 

00005 

•050422 

STA 

2, CTS  +  2 

00006 

•031400 

L  DA 

2,  0,  3 

00007 

•050414 

STA 

2,  ZCTP 

00010 

•031401 

L  DA 

2,  1,  3 

0001  1 

•050020 

STA 

2,  20 

00012 

■014020 

DSZ 

20 

00013 

'03041  1 

L  DA 

2,  ZERCL 

00014 

•052020 

STA© 

2,  20 

00015 

•014406 

DSZ 

ZCTR 

00016 

*000776 

JMP 

•  2 

00017 

•034410 

L  DA 

3, CTS+2 

00020 

•054020 

STA 

3,  20 

00021 

•030405 

L  DA 

2, CTS+1 

00022 

*002403 

JMP© 

CTS 

00023 

'  000000 

ZCTP 

:  0 

00024 

'00000  0 

ZERCL 

:  0 

000003 

CTS 

:  .  BLK 
.  ZREL 

3 

00000 

-000000* 

ACLEP 

» 

:  CL  EAR 

I  SET  RETURN  ADDRESS, 

;  SAVE  (AC2),  ( AC3 )  AND 

;  (20) . 


}  SET  CTP,  #LOCS  TO  ZEPO 

; START  ADDPESS,  AREA  TO  BE  ZEROE 
iTO  LOC  20. 


.END 
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;  PONTINE  TO  PPIMT  MESSAGES 
I  ON  OPT  --  STOPS  UHEN 

;  encounters  null  chapactef 

j 

I  DFLTA  TO  DELTA+7  EASED  ON  EX  AM  PL  F 
I  IN  "HOV  TO  USE  THE  NO '’A  COMPUTERS" 

I  COPYRIGHT  1971,  DATA  GFN EPAL  COPPOPATION 
I  PFFPODUCED  BY  PEPMISSION 


> 

G.M.  OLSON 

s 

2  MARCH  1973 

(A) 

.TITL  CPTXT 
.ENT  SHOP 
. EXTD  CHAP 

.  ZPEL 

00000 

-  000000 ' 

SHOP: 

GAMMA 

.  NPEL 

00000 

•054426 

GAMMA: 

STA  3,  OUT 

I  SAUE  ( AC3)  FOP  PET»'FN 

0000  1 

•054426 

STA  3,0T'T+1 

I  SAVE  CAC3)  FOP  CHAP.  APPAY 

00002 

•050426 

STA  2, OPT  +  2 

I  SAVE  CAC2) 

00003 

•044426 

STA  l,0UT+3 

I  SA,TE  C  AC  1  ) 

00004 

•010422 

ISZ  OPT 

i BUMF  petupn 

00005 

•  032422 

DELTA: 

L  DA  2, @OUT+  1 

ILOAD  CHAP.  VO  PD 

00006 

•  01242  1 

ISZ  @OUT+ 1 

I  INCPFMFNT 

00007 

•  15  1220 

MO^ZP  2,  2 

I  ROTATE  TO  FI GHT 

000  1 0 

'  02  1  000 

L  DA  0,0,2 

ILOAD  CHAR 

000  1  1 

•030421 

LDA  2,  C377 

ILOAD  MASK 

00012 

•  101002 

MOV  0,0,  SZC 

I  CHECK  CAPPY 

00013 

' 101300 

M  0,?S  0,0 

I SVAP  BYTES 

000  14 

' 143405 

AND  2,  0,  SNP 

I  CHECK  IF  NULL 

000  15 

•  000405 

JMP  MU 

I  EXIT 

00016 

•040407 

STA  0,  TEMP 

000  17 

'  00600 1 S 

JSP  @CHAP 

I CHAPACTEF  TO  CPT 

00020 

*000025’ 

TEMP 

0002  1 

•  000764 

JMP  DELTA 

I  LOOP 

00022 

•030406 

MU: 

LDA  2,  OUT  +  2 

IPESTOFE  CAC2)  + 

00023 

•024406 

LDA  1,  OUT +3 

I  (AC  1) 

00024 

•  002402 

jmp  eovT 

00025 

'  000000 

TEMP: 

0 

000004 

OUT: 

.  BLK  4 

00032 

•  000377 

C377: 

377 

•  END 

J  SUBROUTINE  EOX  --  DP  AW  5  PIGHT-LEFT  DIAGPAMS 
,*ON  CRT  (BASED  ON  OLSON  AND  LAXAP,  JOUPNAL 
,*OF  EXPEPIMENTAL  PSYCHOLOGY,  1973) 

J  CALLING  -  SEQUENCE:  JSP  ©PLEOX 

i  STIMULUS  CODE 

;  peturm 

,*  STIMULUS  CODE:  1  =  "PI  GHT"-PI  GHT 


• 

2  =  "PI GHT"  -  LEFT 

3  =  "LEFT”  -  PI  GHT 

J 

A  =  "LEFT"  -  LEFT 

• 

J 

G.M.  OLSON 

26  MAPCH  1973  (A) 

00000 

-000026’ 

PLEOX : 

.  T I  TL  EOX 
.  EMT  H,  FOX 
.  EXTD  SKTCH 

.  Z  PEL 

START 

00000 

•  000000 

TEMP: 

.MPEL 

0 

00001 

•000000 

MODE: 

0 

00002 

•000000 

ZERO: 

0 

00003 

•000001 

ONE: 

1 

00004 

•000005 

FIVE: 

5 

00005 

’  000006 

SIX: 

6 

00006 

•000000 

COUNT: 

0 

00007 

•000000 

TEMPX : 

0 

00010 

•000000 

TEMPY: 

0 

0001  1 

•000000 

TEMPT: 

0 

00012 

•000000 

MODOC: 

0 

00013 

’000137* 

PXLOC: 

XR 

00014 

•000 145’ 

FYLOC: 

YR 

00015 

•000 1 53’ 

RTLOC: 

TOTP 

00016 

•000161 ’ 

LXLOC: 

XL 

000  17 

•000166’ 

LYLOC: 

YL 

00020 

•000173’ 

LTLOC: 

TOTL 

00021 

•000202’ 

LDI  AX: 

XLD 

00022 

•000200  • 

PDI AX: 

XPD 

00023 

•00020 1 • 

DI  AY: 

YD 

00024 

•000203’ 

DIAT: 

TOTD 

00025 

'000000 

OEAN: 

0 

00026 

•054764 

START: 

STA  3, MODOC 

j Save  cac3>+i  for 

00027 

•010763 

I  SZ  MODOC 

; RETURN 

00030 

•025400 

L  DA  1,0,3 

,*LOAD  CODE  no. 

00031 

•020752 

LDA  0,  ON  E 

; SUBTRACT  1  FROM  CODE 

00032 

00033 

•  106400 
’  125220 

SUB  0,  1 

MOVZP  1,  1 

} SAVE  CODE  El T  FOP 

00034 

’ 1 52460 

SUBC  2, 2 

,*  DIAMOND 

00035 

•151100 

MOVL  2,2 

> 

00036 

00037 

•050767 
’ 125222 

STA  2,  OEAN 
MOVZR  1,1, SZC 

;  CHECK  IF  VOPD  IS: 

00040 

•0004  13 

JMP  LEFT 

;  "LEFT" 

00041 

•030752 

LDA  2,  RXL OC 

I  "RIGHT"  --  LOAD *PAPAMETEPS 

00042 

00043 

•050745 

•030751 

STA  2,  TEMPX 

LDA  2,  RYLOC 
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00044 

•050744 

STA 

2s  TEMPY 

00045 

•  030750 

LDA 

2,RTL0C 

00046 

•050743 

STA 

2#  TEMPT 

00047 

•030736 

LDA 

2s  SIX 

00050 

•050736 

STA 

2s  COUNT 

00051 

•004427 

JSP 

DRAV 

00052 

•  0004  12 

JMP 

YUROK 

00053 

•030743 

LEFT: 

LDA 

2sLXLOC 

00054 

•050733 

STA 

2  s  T  EM  PX 

00055 

•030742 

LDA 

2sLYL0C 

00056 

•050732 

STA 

2s  TEMPY 

00057 

•030741 

LDA 

2sLTL0C 

00060 

•05073  1 

STA 

2s  TEMPT 

00061 

•030723 

LDA 

2s  FIVE 

00062 

•050724 

STA 

2s  COUNT 

00063 

•0044  1  5 

JSP. 

DRAV 

00064 

•030735 

YUFOK: 

LDA 

2sLDI  AX 

00065 

•014740 

DSZ 

OBAN 

00066 

•030734 

LDA 

2s  RDI AX 

00067 

•050720 

STA 

2s  TEM  PX 

00070 

•030733 

LDA 

2s  DI  AY 

00071 

•050717 

STA 

2s  TEMPY 

00072 

•030732 

LDA 

2s  DIAT 

00073 

•050716 

STA 

2s  TEMPT 

00074 

•030707 

LDA 

2s  ONE 

00075 

•05071  1 

STA 

2s  COUNT 

00076 

•004402 

JSP 

DRAV 

00077 

•002713 

JMP 

@MO  DO  C 

00  100 

•054436 

DRAW: 

STA 

3s  TEJON 

0010  1 

•020701 

LDA 

0s  ZERO 

00102 

’040677 

STA 

0sMODE 

00103 

•  030704 

LDA 

2s  TEMPX 

00104 

’021000 

LDA 

0S  0S  2 

00105 

•040414 

STA 

0sXVAR 

00106 

•030702 

LDA 

2s  TEMPY 

00107 

•021000 

LDA 

0S  0S  2 

00  110 

•040412 

STA 

0S YVAP 

00111 

•  030700 

LDA 

2s  TEMPT 

00  1  12 

•021000 

LDA 

0S  0S  2 

00  1  13 

•040665 

STA 

0sTEMP 

00  114 

•  000403 

JMP 

*  +  3 

00115 

•020666 

PLOT: 

LDA 

0S  ONE 

001  16 

•040663 

STA 

0sMODE 

00117 

•  006001$ 

J  SR 

©SKTCH 

00120 

•  00000 1 • 

MODE 

00121 

•  000000 

XVAP: 

0 

00122 

•000000 

YVAP: 

0 

00123 

•010776 

ISZ 

XVAP 

00124 

•010776 

I  sz 

YVAP 

00125 

•  0  14653 

DSZ 

TEMF 

00126 

•000767 

JMP 

PLOT 

00127 

•014657 

DSZ 

COT’NT 

00130 

•  000402 

JMP 

•  +2. 

0013  1 

•002405 

JMP 

©TEJON 

00132 

•010655 

I  SZ 

TEMPX 

00133 

•0  10655 

I  SZ 

TEMPY 

00  134 

•  0  10655 

I  SZ 

TEMPT 

00135 

’  000744 

JMP 

DFAV+ 1 

00136 

•000000 

TEJON : 

0 

i DRAV  "FIGHT" 

;  GO  TO  DRAW  DIAMOND 
1LOAD  '’LEFT"  PARAMETERS 


;DF.AV  ’•LEFT” 

} DRAV  APPROPRIATE 
}  DIAMOND 


;exit  from  subroutine 

; DRAW  ON  CRT 
; SET  FOP  DARK  VECTOR 

;set  X 


}  SET  Y 


;  set  count  of  x,y  pairs 


;set  FOR  EPIC-HT  VECTOR 
JJUMP  TO  ALS 


I  INCREMENT  POINTERS 

}  CHECK  IF  FINISHED 
;VITH  EPIGHT  SECTOR 
t  CONTINUE  WITH  EPIGHT  VECTOR 
;  CHECK  IF  DRAWING  DONE 

;  EXIT 

; SET  FOP  NEXT  DAPK 
; VECTOR 
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00137' 000204  * 
00140*0002 16* 
00141 '000240* 
00142*000254* 
00143*000300* 
00144*000314* 
00145*0002 1 1 ’ 
00146*000227* 
00147*000246’ 
00150*000266* 
00151 *000306’ 
00152*000246’ 
00153*000005 
00154*00001 1 
00155*  000006 
00156*000012 
00157*000006 
00160*000004 
00161 *000204’ 
00162*000324’ 
00163*000332’ 
00164*000350* 
00165*000320* 
00166*00021 1 ’ 
00167*000327’ 
00170*00034  1  * 
00171 *00034 1  * 
00172*000246  * 
00173*000005 
00174*000003 
00175*000007 
00176*000006 
00177*000004 
00200*000356  * 
00201 *000370* 
00202*000363* 
00203*000005 

000012 
00204  *  000620 
00205*001274 
00206*001274 
00207*000620 
00210*000620 
002 11*001 130 
00212*001 130 
00213*000454 
002 14  *000454 
00215*00 1 130 
00216*000654 
00217*000654 
00220*000714 
00221 *000724 
00222*000724 
00223*000714 
00224*000654 
00225*000710 
00226*000724 
00227*000644 
00230*000740 


XR:  BX 

RX 
IX 
GX 
HX 
TF.X 

YR:  BY 

RY 
ITY 
GY 
HY 
ITY 

TOTR:  5 

1  1 
6 

12 

6 

4 

XL :  EX 

LX 
EX 
FX 
TLX 

YL :  BY 

LY 
EFY 
EFY 
ITY 

TOTL:  5 

3 
7 
6 

4 

XPD:  DRX 

YD:  DY 

XLD:  DLX 

TOTD:  5 

.  RDX 

BX:  400 

700 
700 
4  00 
400 

BY:  600 

600 
300 

3  00 
600 

RX:  428 

4  28 
460 
468 
468 
460 
428 
456 
4  68 

RY:  420 

48  0 


00231  *  000740 
00232 '000730 
00233 ' 000704 
00234*000674 
00235*000674 
00236*000674 
00237*000644 
00240*000750 
0024 1 • 000760 
00242*000754 
00243*000754 
00244*000750 
00245*000760 
00246*000740 
00247*000740 
00250  *  000740 
00251 *000644 
00252*000644 
00253*000644 
00254*001034 
00255*001054 
00256*001054 
00257*001044 
00260*001014 
00261 *001004 
00262*001004 
00263  *  00 1 0 14 
00264*001044 
00265*001054 
00266  *  000674 
00267  *  000674 
00270*000654 
00271 *000644 
00272*000644 
00273*000654 
00274*000730 
00275  *  000740 
00276  *  000740 
00277*000730 
00300*001  140 
00301 *001  140 
00302*001 140 
00303*001074 
00304*001074 
00305*001074 
00306*000644 
00307*000740 
00310*000702 
003 1 1 *000702 
00312*000644 
00313*000740 
00314*001 160 
00315*001240 
00316*001210 
00317*001210 
00320*001 150 
0032 1 *001230 
00322*001200 
00323*00 1 200 
00324*000670 


480 

472 

452 

444 

444 

444 

420 

IX:  488 

496 
492 
492 
488 
496 

ITY:  480 

480 
480 
420 
420 
420 

GX:  540 

556 
556 
548 
524 
5  16 
5  1  6 
524 
548 
556 

GY:  444 

444 
4  28 
420 
420 

4  28 
472 
480 
480 
472 

HX:  608 

608 
608 

5  72 
572 
572 

HY:  420 

480 
450 
450 
420 
480 

TPX:  624 

672 
648 
648 

TLX:  616 

6  64 
640 
640 

LX:  440 


00325 ’ 000670 
00326*000740 
00327*000740 
00330*000644 
0033 1 *000644 
00332*001034 
00333*000764 
00334*000764 
00335*001010 
00336*000764 
00337*000764 
00340*001034 
0034 1 *000740 
00342*000740 
00343*000702 
00344*000702 
00345*000702 
00346*000644 
00347*000644 
00350*001  130 
00351  *001060 
00352*001060 
00353*00 1 104 
00354  *001060 
00355*001060 
00356*001510 
00357  *001440 
00360*001370 
00361 '001440 
00362*001510 
00363*000404 
00364  *000454 
00365*000524 
00366*000454 
00367*000404 
00370*000702 
00371 *000752 
00372*000702 
00373*000632 
00374*000702 


440 
48  0 

LY: 

480 

420 

420 

EX: 

540 

500 

500 

520 

500 

500 

540 

EFY: 

480 

480 

450 

450 

450 

420 

420 

FX: 

600 

560 

560 

580 

560 

560 

DRX: 

840 

800 

760 

800 

840 

DLX : 

260 

300 

340 

300 

260 

DY: 

450 

490 

450 

4  10 

4  50 

.END 

;  SUBROUTINE  SALS 

;  ABBREVIATED  VERSION  OF  TEKTRONIX  PLOT- 10 
J  FOP.  NOVA  MINICOMPUTERS 

;  =  NAVSUEM  EDRSCHL  AB  MODIFICATION 
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* 

6  APRIL 

1973  <  A) 

.  TITL 

SALS 

;* 

.ENT  CHAR,  SKTCH 

;  * 

000050 

CRI  =  50 

;* 

000051 

CRO=  5 1 

s  * 

.  ZFEL 

}  * 

00000-000000* 

CHAP: 

CHOUT 

;* 

00001-000010’ 

SKTCH : 

TPLOT 

j* 

.NREL 

J 

> 

RELEASE 

2  72-MAY-  1  1 

J 

COPYRIGHTED  BY  TEKTRONIX, 

INC.  1 

• 

J 

J 

« 

REPRODUCED  BY  PERMISSION 

J 

• 

J 

J 

CHOUT 

J 

THIS  ROUTINE  IS 

CALLED  TO 

OUTPUT 

* 

J 

AN  ASCI  I 

CHARACTER  TO  THE 

4010 

• 

J 

• 

GRAPHIC 

COMPUTER  TERMINAL 

J 

* 

J 

TO  CALL: 

}  * 

JSP 

@CHAF 

• 

ADDRESS 

OF  VORD 

WITH  CHARACTEP 

• 

j 

• 

RETURN  HERE 

00000  *  040407 

j 

CHOUT: 

STA 

0, CCAC0 

;  SAVE  AC0 

00001 '063551 

SKPBZ 

CRO 

; SKIP  IF  ! 

NOT  EUSY 

00002 '000777 

JMP 

1 

00003*023400 

LDA 

0,  @0,  3 

IGET  CHARACTER 

00004 '061 151 

DOAS 

0,  CRO 

,*SHIP  CHARACTER 

00005*020402 

LDA 

0, CCAC0 

; RESTORE 

AC0 

00006  *00  140! 

JMP 

L3 

00007 ' 000000 

J 

CCAC0: 

0 

J  TEMP  FOP 

AC0 

1972 


TPLOT 

THIS  ROUTINE  IS  CALLED  TO  PLOT 
IN  LINEAR  INTERFOLATE  ( VECTOR)  * 

POINT  PLOT  MODE 

DEPENDING  ON  THE  VALUE  OF  THE  MODE 
PARAMETER 

IF  MODE 

=  0  IMITIALZE  AND  DARK  VECTOR  TO  X,Y 

>  0  BRIGHT  VECTOR  TO  X,Y 

<  0  POINT  PLOT  TO  X,Y 
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000  10 
000 1 1 
000  12 
00013 
000  14 
000  15 
00016 
00017 
00020 
00021 
00022 
00023 
00024 
00025 
00026 
00027 

00030 
0003  1 
00032 
00033 
00034 
00035 
00036 
00037 
00040 
00041 
00042 
00043 
00044 
00045 
00046 
00047 
00050 
00051 
00052 
00053 
00054 
00055 
00056 

00057 

00060 

00061 

00062 

00063 

00064 

00065 

00066 

00067 

00070 


}  TO  CALL: 

;*  J SR  ■  @SKTCH 

;  ADDRESS  OF  MODE  PARAMETER 

;  ADDRESS  OF  X 

;  ADDPESS  OF  Y 

;  RETURN  HERE 


040516  TPLOT: 
023401 
040516 
023402 
040515 
023400 
040514 
054510 
101015 
000405 
101113 
000405 
006000- 
000120* 

006000-  TPTDV: 
0001  17* 


STA 

LDA 

STA 

LDA 

STA 

LDA 

STA 

STA 

MOV# 

JMP 

MOVL  # 

JMP 

J  SR 

US 

J  SR 

GS 


0,TPTAC0I  SAVE  AC0 
0, @ 1, 3  ,* GET  X 

0,  TPTX 

0,  @2,  3  ;  GET  Y 

0, TPTY 

0,  @0,  3  i  GET  MODE 
0,  TFMOD 

3,TPTADD; SAVE  CALL  ADDRESS 
0,  0,  SNR  ;  SKP  IF  NEO  0 

TPTDV  ;=  0  INITIALIZE  AND  DARK  VECTOR 
0,  0,  SNC  ;  SKIP  IF  <  0 
TPTNPM  JNOFMAL  BPIGHT  VECTOR 
©CHAP  I  *  SET  TO  ALPHA 

©CHAR  J *  DARK  VECTOR 


020501  TPTNRM: 

LDA 

101112 

MOVL# 

102400 

SUB 

03447  1 

LDA 

162513 

SVBL  # 

161000 

MOV 

040473 

STA 

103120 

ADDZL 

101 120 

MOVZL 

101300 

MOV$ 

034457 

LDA 

163000 

ADD 

040467 

STA 

006000- 

JSP 

000133’ 

TPTTMP 

020462 

LDA 

034450 

LDA 

1 63400 

AND 

03445 1 

LDA 

163000 

ADD 

040457 

STA 

006000- 

JSP 

000133* 

TPTTMP 

0,  TPTY  GET  Y 
0,  0,  SZC  ;  SKP  IF  + 

0,0  ;make  0 

3,  D78  0  ,*  UPPER  Y  BOUND 

3,0,  SNC  I  SKP  IF  ON  SCREEN 
3,0  JSET  TO  EDGE 

0,  TPTY  ,'  SAVE  GOOD  Y 
0,0  ,**USE  UPPER  5  BITS 

0,  0 

0,0  ;AND  SVAP  HALVES 

3,  P04  0  JHI  Y  TAG 
3,  0  i PUT  IN  CHAP 

0,  TPTTMP;  USE  A  TEMP 
©CHAP  ,'*SHIP  HI  Y  5 

0, TFTY  ; GET  Y 
3,  B037  ;MASK 
3,0  ; LEAVE  LOU,  Y  5 

3, E 1 40  ;lov  y  tag 
3,0  J  SET  IN  CHAP 

0,  TPTTMP 

©CHAR  ;*SKIP  LOU  Y 


02045 1 
101112 
102400 
034443 
162513 
161000 
040443 
103 120 
101  120 
101300 


LDA 

0, TPTX 

J  GET  X  VALUE 

MOVL  # 

0,  0,  SZC 

;  * 

SUE 

0,  0 

;* 

LEA 

3,  D  1 023 

;* 

SUBL  # 

3,  0,  SNC 

;  * 

MOV 

3,  0 

;* 

STA 

0,  TPTX 

;  * 

ADDZL 

0,  0 

;*and  SO  ON 

MOVZL 

0,  0 

MO  VS 

0,0 

;hi  x  5 
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0007  1 
00072 
00073 
00074 
00075 
00076 
00077 
00  1  00 
00101 
00102 
00103 
00  104 
00105 
00  106 
00107 
00110 
00111 
00112 
00  113 
001  14 
00115 
00116 


00117 

00120 


00121 

00122 

00123 

00124 

00125 

00126 
00  127 
00130 
00131 
00132 
00133 


034430 

L  DA 

3>  B040  ;HI  X  TAG 

163000 

ADD 

3, 0  > ADD  IN  TAG 

040440 

STA 

0,  TPTTMP 

006000- 

J  SR 

§CH  AR  ;*SHIP  HI  X  5 

000133' 

TPTTMP 

020432 

LDA 

0,TPTX  j  GET  X 

03442  1 

L  DA 

3j  E037  ;  GOODIE  MASK 

163400 

■AND 

3,e  } L  EAVE  LOU  X 

03442 1 

LDA 

3>  B  1  00  ILOV  X  TAG 

163000 

ADD 

3j&  3  PUT  IN  TAG 

040430 

STA 

0j  TPTTMP 

00600  0- 

JSP 

@CH  AR  ;* 

000133 ' 

TPTTMP 

020424 

LDA 

0j  TFMOD 

101113 

MOVL  § 

0j  0j  SNC 

000404 

JMP 

TPTEXT 

102400 

SUE 

0j  0 

040420 

STA 

0,  TFMOD 

0007  1  5 

JMP 

TPTNPM 

020412 

TPTEXT : 

LDA 

0j  TPTAC03  RESTORE  AC0 

034412 

LDA 

3j tptadd; call  ADDRESS 

00 1403 

> 

JMP 

3i  3  i  EX  IT 

J 

J 

> 

CONSTANTS  AND  VAPIAELES 

000035 

J 

GS: 

035 

000037 

US: 

037 

000120' 

J 

E03  7=l?S 

000040 

E040: 

040 

000  100 

E 1 00; 

100 

000140 

E140: 

« 

140 

001414 

J 

D78  0 : 

14  14 

3MAX  VISIBLE  Y 

001777 

D 1 023 ; 

1777 

3MAX  VI  SIELE  X 

000000 

J 

TPTAC0: 

0 

000000 

TPTADD: 

0 

000000 

TFTXs 

0 

000000 

TPTY: 

0 

000000 

TFMOD: 

0 

000000 

TPTTMP: 

0 

.END 
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,*  SUEPOUTINE  PTANL  --  DO ES  SIMPLE  ANALYSIS 
JOF  PT  DATA: 

,*  STANDAPD  ANALYSIS  INCLUDES- - 

;  1.  OVEFALL  PFSVLTS 

;  2.  ANALYSIS  EY  STIMULI  (IF  MOPE  THAN  ONE) 

;  3.  ANALYSIS  EY  FOPEPEPIODS  (IF  MOPE  THAN  ONE) 

;  A.  ANALYSIS  EY  STIMTT-I  X  FOPEPEPIODS  (IF  BOTH 

,*  MOPE  THAN  ONE) 

J  ALL  OF  THESE  APE  DONE  FOP 

i  A.  ALL  DATA 

,*  E.  COPPECTS  ALONE  ) ONLY  IF  EPPOFS 

;  C.  EPPOFS  ALONE  )A PE  POSSIBLE 

,*  OPTIONAL  ANALYSIS  -- 

i  ALL  OF  THE  ABOVE  DONE  BY  ELOCKS, 

i  VHEPE  ELOCK  SIZF  IS  ENTEPED  AT 

;  TIME  OF  ANALYSIS 

;  ***NOTE:  IT  IS  UP  TO  THE  I’SEP 

;  TO  CP  FATE  MEANINGFUL  BLOCK  SIZES 

> 

;  PTANL  FECVIPES  SUEPOVTINES  DESIGN,  DPA.CC,  CAPVE, 

I  INOVT,  AND  THEIP  ASSOCIATED  SVPPOVTINES. 

;  ALSO  PECUIPES  ACCESS  TO  MANY  GLOEAL 

;  NAMES  IN  PTEXP 
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. TI TL  PTANL 
.ENT  TSYCH 


.  FXTD 
.  EXTD 
.  EXTD 
.  EXTD 

00000- 000008 ’ 

P  SY  CH : 

♦  ZFEL 
T,'HY 

00001-000514’ 

PTXT: 

TXT  1 

00002- 000542 ’ 

TXT2 

00003-000553’ 

TXT  3 

00004- 000600’ 

TXT4 

00005-000612’ 

I  TXT: 

TXT5 

00006-000635’ 

TXT  6 

00007-000707 • 

TXT  7 

00010-000765 ’ 

TXT8 

0001 1-001045’ 

TXT9 

00012-001 135’ 

TXT  10 

00013-001 137’ 

TXT  1  1 

00014-001 14 1 ’ 

TXT  12 

00015-00 1 142 ’ 

TXT  1  3 

00016-000475* 

ANIND: 

N  IND 

000  17- 000474  ’ 

ASIZE: 

SIZE 

00020-000000 

APET: 

0 

00021-000407 ’ 

AIT  AE: 

ITAE 

00022- 000440 ' 

ASOPT: 

SOPT 

EXP, ?PEJ, ATYFE, APE, TPLS 
PEPC, AFP,N  FF, CT, ACS, ETXT 
ABN  DC,  QU ACC,  CL  EVE,  ITYP,OVINC 
ATIME,  ACODF,  I  STIM,  I  FOFE 


IPITPY  POINT 

JZEPO  PAGE  TEXT  ADDPE.SSES 
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00023-000473'  ASTAPT:  START 


.NPEL 


00000 

' 054520 

PHY: 

STA 

3, VOPK 

;  STORE  P.ETUPN 

00001 

•020001- 

L  DA 

0,PTXT 

;  PRINT  HEADINGS 

00002 

'006003$ 

JSP 

© ATYPE 

00003 

'024001$ 

L  DA 

1 ,  EXP 

00004 

'0060 14$ 

JSP 

@  ABN  DC 

00005 

•020002- 

L  DA 

0,  FTXT+  1 

00006 

'006003$ 

JSP 

©ATYPE 

00007 

'024002$ 

L  DA 

\,  SUBJ 

000  10 

'006014$ 

JSP 

©AENDC 

000  11 

'020006$ 

L  DA 

0,REPC 

000  12 

'0405  1  1 

STA 

0, VOPK+3 

000  13 

'014510 

DSZ 

VOPK +3 

00014 

'000405 

JMP 

.  +  5 

000  15 

•020015- 

L  DA 

0,  ITXT+  10 

000  16 

'006003$ 

JSP 

©ATYPE 

000  17 

'024020$ 

L  DA 

1,  OVINC 

00020 

'006014$ 

JSP 

©AEN  DC 

00021 

•020003- 

L  DA 

0, PTXT+2 

;  CUEPY  FOP  ANALYSIS 

00022 

'006004$ 

JSP 

©APE 

;by  elocks 

00023 

'044516 

STA 

\,  ELKF 

00024 

•  02053  1 

L  DA 

0,ONE 

00025 

' 106414 

SUB 

40,  1,  SZR 

00026 

'000404 

JMP 

EASY 

;no  block  analysis 

00027 

•020004- 

LEA 

0, PTXT+3 

• 

J 

00030 

‘ 006004$ 

JSP 

©APE 

} GET  ELOCKSIZE  FOP 

00031 

•04451  1 

STA 

1,BLKSZ 

J  ANALYSIS 

00032 

'020013$ 

EASY: 

L  DA 

0,  BTXT 

00033 

•006004$ 

JSP 

©APE 

00034 

•044017$ 

STA 

\,  ITYP 

00035 

'022506 

LEA 

0,  © AFFAS 

!  SET  t’P  ARRAY 

00036 

•04051 1 

STA 

0,  ENTER 

JADDPESSES  FOP 

00037 

•022505 

LDP. 

0,  ©APRAS+  1. 

;  OVERALL  ANALYSIS 

00040 

•0405  10 

STA 

0,  ENTEP+  1 

00041 

'022504 

LEA 

0,  ©AFPAS+2 

00042 

'040507 

STA 

0,  ENTER+2 

00043 

•022503 

LEA 

0,  ©AFPAS+3 

00044 

•040506 

STA 

0,  EMTER  +  3 

00045 

•020005$ 

LEA 

0,  TFLS 

00046 

*042017- 

STA 

0,  ©ASIZE 

00047 

•0045 1 6 

JSP 

GAP 

;do  ouepall  analysis 

00050 

•02047 1 

LEA 

0,  BLKP 

;  CHECK  IF  ANALYSIS 

00051 

'024504 

LEA 

l,  ONE 

IIS  TO  EE  DONE  EY 

00052 

•  1064  14 

SUB 

40,  1,  SZF 

;  elocks 

00053 

•  002445 

JMP 

©VOPK 

JNO--  P.ETUPN 

00054 

•020464 

LEA 

0,  Z EPO 

00055 

•  040457 

STA 

0,  VOFK+  14 

00056 

•  020005$ 

LEA 

0, TPL  S 

;  SET  UP  TRIAL  COUNT 

00057 

•040453 

STA 

0,  VOPK+  1  2 

00060 

•020462 

LEA 

0,  BLKSZ 

ILOAD  BLOCK  SIZE 

00061 

*042017- 

STA 

0,  ©ASIZE 

UNTO  CALL  TO  DFACC 

00062 

•040451 

STA 

0 , VO PK  +13 

00063 

•020475 

NUB: 

LEA 

0,  FOUP 

;SET  UF  TEMFORAPY 

00064 

•040445 

STA 

0,  VO  PK  +  1  1 

; ADDRESS  LOADING  COUNTER 

00065 

034466 

LEA 

3/  I  AP.PS 

;set  UP  POINTEPS  FOR 

00066 

•030466 

LEA 

2,  I  ENT 

;  PICKING  OT’T  DATA  BY  BLOCKS 

00067 

’  024005$ 

NUNC: 

LEA 

1,TPLS 

J 

00070 

•023400 

LEA 

§0,0,3 

S GET  ADDRESS 
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0007  1 

*  1  07000 

ADD 

0,  1 

,*  IN  CPE-1  ENT' BY  TPIAL  COT*NT 

00072 

•  02044  1 

L  DA 

0*  VOEK+ 1 3 

00073 

•  106400 

Sl’E 

0,  l 

/decrement  ey  block  cottit 

00074 

•045000 

STA 

1,0,2 

;  STORE  IN  ENTEF 

00075 

•  151400 

INC 

2,2 

;  SET  FOP  NEXT 

00076 

•  175400 

INC 

3,  3 

; ADDRESSES 

00077 

•014432 

DSZ 

VOFK+ 1 1 

Z  CHECK  IF  DONE 

00100 

•000767 

JMP 

NUN  C 

/LOOP 

00101 

•020005- 

L  DA 

0,  I  TXT 

;  PRINT  BLOCK  HEADING 

00102 

•006003$ 

JSP 

@ ATYPE 

00103 

•010431 

I  SZ 

VOPK+ 14 

/CHANGE  ELOCK  NUMEEP 

00  104 

•024430 

LDA 

1, VOPK+  14 

00  105 

•006014$ 

JSP 

@  AENDC 

ZPPINT  ELOCK  N1TMEEP 

00106 

•004457 

JSP 

GAP 

/DO  ANALYSIS 

00107 

’  020423 

LDA 

0, VOPK+ 12 

» 

00110 

•  024423 

LDA 

1 , VOPK+ 1 3 

/CHECK  IF  DONE 

00111 

'  122405 

SUE 

1,0,  SNP 

001  12 

•  002406 

JMP 

@vopk 

;  FX I T 

001  13 

•020420 

LDA 

0, VOPK  +  1  3 

/ INCP  BLOCK  COUNTER 

001  14 

•024426 

LDA 

1,  BLKSZ 

/BY  BLOCK  SIZE 

00115 

•  107000 

ADD 

0,  1 

00116 

•044415 

STA 

1 , UOPK+ 1 3 

00117 

•000744 

JMP 

NUB 

/LOOP 

000020 

VOFKs 

.ELK  20 

00140 

•  000000 

Z  EPO: 

0 

0014  1 

' 000000 

ELKF: 

0 

00142 

•  000000 

ELKSZs 

0 

00  143 

•000021$ 

APPAS s 

ATIME 

00144 

•000022$ 

ACODE 

00145 

•  000023$ 

I  STIM 

00146 

■  000024$ 

I  FORE 

00  147 

•  000000 

ENTER: 

0 

00  1  50 

•000000 

0 

00151 

*000000 

0 

00152 

•  000000 

0 

00153 

•000 143’ 

I APPS: 

APPAS 

00154 

•000147’ 

I  ENTs 

EMTFP 

00155 

•000001 

ONES 

1 

00156 

•  000002 

TVO  s 

2 

00157 

•000003 

THPEES 

3 

00  1  60 

•000004 

FOVFs 

4 

00161 

•00040 1 • 

AT  1  S 

VTAEC 

00162 

•000374* 

AT2 : 

MTABI 

00163 

•000404 • 

AT  3  s 

VTAEI 

00164 

•000410* 

AT  4  S 

ITAE+ 1 

Z  ROUTINE  FOP  0 FGAN I  3  IN G 

ANALYSIS 

00165 

•  054020- 

GAPs 

STA 

3, APET 

Z SAVE  PFTUPN 

00  166 

•  020752 

LDA 

0,3  EPO 

/ SET  UP  FOP 

00167 

•042016- 

STA 

0,  ©AN  IN  D 

J  OVERALL  AN  ALY  S I  S 

00170 

•020757 

LDA 

0,  enter 

00171 

•042023- 

STA 

0, ©AST APT 

00172 

•020763 

LDA 

0,  ON  E 

00173 

•042766 

STA 

0, ©AT 1 

00174 

•020762 

LDA 

0,  TWO 

00175 

•  042765 

STA 

0, ©AT  2 

• 

00176 

•042765 

STA 

0,  ©AT 3 

00177 

•020006- 

LDA 

0,  ITXT+  1 

00200 

•  006003$ 

JSP 

©ATYPE 
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00201 

’020747 

L  DA 

0,  ENTEF  +  1 

00202 

■  04202  1- 

STA 

0i  ©AITAB 

00203 

' 006022- 

JSF. 

©ASORT 

;DO  ANALYSIS 

00204 

’0200 1 1$ 

L  DA 

0;  CT 

;  CHECK  NVMBEP  OF 

00205 

’0407  17 

STA 

0i WORK +4 

;  stimuli 

00206 

’  0  14716 

DSZ 

WOPK+4 

;  =1? 

00207 

’ 000402 

JMF 

.+2 

;no 

00210 

•  000434 

JMP 

FPTST 

jyes  -  SKIP  TO  FP 

002  1  1 

•020007- 

L  DA 

0, I TXT+ 2 

00212 

’ 006003$ 

JSP 

©ATYPE 

002  13 

’020736 

L  DA 

0,  ENTEF+2 

002  14 

*042021- 

STA 

0j  SAI^AF 

00215 

'  020733 

L  DA 

0j  FMTER+  1 

00216 

•  042746 

STA 

0i ©AT  4 

00217 

’020547 

L  DA 

0,MSK7 

;  SET  VAPIAELE  MASKS  AND  VOPDS 

00220 

•040554 

STA 

0  j  MT  AEI 

00221 

•  020735 

L  DA 

0j  TVO 

00222 

•040553 

STA 

0jMTAEI  +  1 

00223 

•  040562 

STA 

0, VTABI+1 

00224 

•02073  1 

L  DA 

0,  OME 

00225 

•040555 

STA 

0j  VTAPC+1 

00226 

•  0  10676 

I  SZ 

WORK +4 

00227 

•020726 

PSTIM : 

L  DA 

0,  OME 

J RESET  INDICATOR  COVMT 

00230 

•0420  16- 

STA 

0,  ©AMIND 

00231 

•030012$ 

L  DA 

2,  ACS  ' 

;LOAD  ADDP  OF  STIM  TABLE 

00232 

•  020672 

L  DA 

0j WORK+4 

;load  ci’ppent  covnt 

00233 

’ 1 13000 

ADD 

0j  2 

; ADD  TO  CREATE  ADDP  OF  STIM 

00234 

•  025000 

L  DA 

Ij0j2 

S (AC  1 >  =  CURRENT  STIM 

00235 

■  044542 

STA 

1 j  WTAEO 

J STOFE  IN  VOPD  TABLES 

00236 

•  044543 

STA 

1, VTAEC 

00237 

•044545 

STA 

1 , VTAEI 

00240 

’  0060  14$ 

JSP 

©ABN  DC 

PPINT  STIM  NO. 

00241 

■006022- 

JSP 

©ASOPT 

;do  analysis 

00242 

•  0  14662 

DSZ 

WOPK+4 

;  CHECK  IF  DONE 

00243 

•000764 

JMF 

pstim 

;  loop 

00244 

•020010$ 

FPT5T : 

LPA 

0,NFP 

;  CHECK  NO  OF  FPS 

00245 

’040660 

STA 

0, WOPK+5 

00246 

•014657 

DSZ 

WOPK+5 

00247 

'  000402 

JMP 

•  +  2 

00250 

•  002020- 

JMP 

©ARET 

0025  1 

•020010- 

L  DA 

0,  ITXT+3 

00252 

•006003$ 

JSP 

©ATYPE 

0025.3 

•020677 

L  DA 

0,  ENTEF  +  3 

00254 

'040533 

STA 

0^ I  TAB 

00255 

'  020673 

LDA 

0j  EMTER+  1 

00256 

•040532 

STA 

0,  ITAE+  1 

00257 

•020507 

LDA 

0  .>  M  SK  7 

00260 

•040514 

STA 

0,MTABI 

00261 

'  020675 

LDA 

0j  TWO 

00262 

•040513 

STA 

0,MTABI  +  1 

00263 

•  040522 

STA 

0, VTAEI + 1 

00264 

•020671 

LDA 

0,  OME 

00265 

’  040515 

STA 

0, VTABC+ 1 

00266 

•  0  10637 

I  SZ 

VOPK+5 

00267 

•020666 

PFOFE: 

LDA 

0..ONE 

00270 

'042016- 

STA 

0j  ©AN  IMD 

00271 

'030007$ 

LDA 

2,  AFP 

;LOAD  ADDP  OF  FP  TABLE 

00272 

•020633 

L  DA 

0i  VOPK+5 

JLOAD  CVRPENT  BLOCK  COVNT 

00273 

’  1  13000 

ADD 

0i  2 

; CREATE  ADDP  OF  NEXT  FP 
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00274 

025000 

L  DA 

1,0,2 

ILOAD  NEXT  FP 

00275 

044502 

STA 

1 ,  VTABO 

i STORE  IN  WORD  TAELES 

00276 

044503 

STA 

1 , VTAEC 

00277 

044505 

STA 

1,  VTABI 

00300 

006014$ 

J  SR 

§  ABM  DC 

; PRINT  CURRENT  FP 

00301 

006022- 

JSP 

@ ASOFT 

;  DO  ANALYSIS 

00302 

014623 

DSZ 

WORK +5 

;  CHECK  IF  DONE 

00303 

000764 

JMP 

P.FOPE 

00304 

02001 1$ 

BOTH: 

L  DA 

0,  CT 

,*  CHECK  FOR  NUMBER 

00305 

040513 

STA 

0,  TEMP+6 

} OF  STIM 

00306 

014512 

DSZ 

T  EM  P+6 

00307 

000402 

JMP 

.  +2 

003  10 

002020- 

JMP 

@  ARET 

00311 

0200  1  1- 

L  DA 

0,  ITXT+4 

003  12 

006003$ 

JSP 

SATYPE 

00313 

020636 

L  DA 

0,  ENTER+2 

00314 

040473 

STA 

0, I  TAB 

00315 

020635 

LDA 

0,  ENTEP+3 

00316 

040472 

STA 

0,  ITAB+  1 

00317 

02063 1 

LDA 

0,  ENTER+1 

00320 

040471 

STA 

0, ITAB+2 

00321 

020445 

LDA 

0,M  SK  7 

00322 

040452 

STA 

0,MTABI 

00323 

040452 

STA 

0,MTABI  +  1 

00324 

020631 

LDA 

0,ONE 

; SET  UP  FOP  STIM  &  FP 

00325 

040456 

STA 

0, VTABC+2 

;  ANALYSI  S 

00326 

020630 

LDA 

0,TVO 

00327 

040447 

STA 

0,MTABI+2 

00330 

040456 

STA 

0, VTABI +2 

00331 

010467 

I  SZ 

TEMP+6 

00332 

030012$ 

SAIL: 

LDA 

2,  ACS 

i OUTEP  LOOP  -  STIM 

00333 

020465 

LDA 

0, TEMP+6 

00334 

1  13000 

ADD 

0,2 

00335 

025000 

LDA 

1,0,2 

00336 

04444  1 

STA 

1 , WTABO 

00337 

044442 

STA 

1 ,  WT ABC 

00340 

044444 

STA 

1 , VTABI 

00341 

020010$ 

LDA 

0,MFP 

; RESET  FP  COUNT 

00342 

040450 

STA 

0,  TEMP 

00343 

020613 

FLY: 

LDA 

0,  TV.O 

00344 

042016- 

STA 

0,  SAN  IN  D 

00345 

030007$ 

LDA 

2,  AFP 

; INNER  LOOP  -  FPS 

00346 

020444 

LDA 

0,  TEMP 

00347 

1  13000 

ADD 

0,  2 

00350 

025000 

LDA 

1,  0,  2 

00351 

044427 

STA 

1, WTABO+ 1 

00352 

044430 

STA 

1 , VTABC+ 1 

00353 

044432 

STA 

1, VTABI+ 1 

00354 

024423 

LDA 

1 , VTABO 

00355 

0060 14$ 

JSP 

SABNDC 

00356 

024422 

LDA 

1,  VTABO+  1 

00357 

0060 14$ 

JSP 

SABNDC 

00360 

006022- 

JSP 

@ ASOFT 

;do  ANALYSIS 

00361 

0  1443  1 

DSZ 

TEMP 

,' CHECK  FP  COUNT 

00362 

00076  1 

JMP 

FLY 

00363 

0  14435 

DSZ 

TEMP+6 

;  CHECK  STIM  COUNT 

00364 

000746 

JMP 

SAIL 

00365 

002020- 

JMP 

6ARET 

;  EXIT 

00366 

177777 

MSK7: 

177777 

00367 

177777 

MTABO : 

177777 
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00370 * 177777 

177777 

00371  *  177777 

MTABC: 

177777 

00372*  177777 

1 77777 

00373  ’  177777 

177777 

000003 

MTABI : 

.  BLK  3 

000002 

VTA BO : 

•  BLK  2 

000003 

VTABC: 

.BLK  3 

000003 

VTABI : 

.  BLK  3 

000003 

1  TAB: 

.ELK  3 

000020 

TEMP: 

.  BLK  20 

00432 ’ 000366  * 

AMTAB: 

MTABO-  1 

00433*000370  * 

MTABC-  1 

00434*000373  * 

MTAEI-  1 

00435*000376* 

AVTAB: 

VTA BO-  1 

00436*000400  * 

VTABC-.  1 

00437*000403 ’ 

VTABI -  1 

I ROUTINE  FOR  ORGANIZING 

EACH  ANALYSIS 

I  INTO 

OVERALL  t  CORRECT, 

INCORRECT 

00440  *  054754 

50PT: 

STA  3,  TEM  P+  2 

I SAVE  RETURN 

00441  *024771 

LDA  1 ,  AMTAB 

I  MASK  TABLE  ADDR 

00442*030773 

L  DA  2, AVTAB 

I VORD  TABLE  ADDP 

00443*004422 

J  SR  MEAN 

IDO  ANALYSIS 

00444 '020006$ 

LDA  0,  PEPC 

I  CHECK  IF  ANY  ERRORS 

00445*040746 

STA  0,TH*IP+1 

I  POSSIBLE  IN  DESIGN 

00446*014745 

DSZ  TEMP+l 

00447 ' 000404 

JMP  .+4 

00450*020013- 

LDA  0,  ITXT+6 

00451 ' 006003$ 

JSP  @ATYP£ 

;  CR  +  LF 

00452*002742 

JMP  @TEMP+2 

} EX I T  -  NO  EPROPS 

00453*010422 

ISZ  NIND 

j  BUMP  INDICATOR  COUNT 
;  SET  FOP  COPPECT 

004  54  *024757 

LDA  1,  AMTAB+  1 

;PESP  ANALYSIS 

00455*030761 

LDA  2,  AVT AB+  1 

00456*004407 

JSP  MEAN 

;  DO  ANALYSI  S 
;  SET  FOP  ERROR 

00457*024755 

LDA  1 ,  AMTAB+2 

;  ANALYSI  S 

00460*030757 

LDA  2,  AVTAB+  2 

00461 *004404 

JSP  MEAN 

IDO  ERFOF  ANALYSIS 

00462  *  0200 1 3- 

LDA  0,  ITXT+6 

00463*006003$ 

JSP  @ATYPE 

I  CR  +  LF 

00464 ' 002730 

JMP  STEMP+2 

;  EX  I  T 

; PONTINE  TO  CALL  DFACC 

AND  CARVE 

00465*044412 

MEAN: 

STA  1,  AM  ASK 

IMASK  TABLE  ADDR 

00466*050412 

STA  2,  A  VORD 

I  VORD  TAELE  ADDP 

00467*054726 

STA  3.TEMP+3 

I  RETURN 

00470*006015$ 

J  SR  6  0VA.CC 

I  GO  TO  AC CUM  ROUTINE 

0047  1  *  000504 ' 

TOTAL 

I  ADDP  OF  D.F.  SUM 

00472*000506’ 

COUNT 

I  ADDP  OF  'DATA  COUNT 

00473*000000 

START : 

0 

I  START  OF  BATA  ARPAY 

00474  *000000 

SIZE: 

0 

I  SIZE  OF  APRAYS 

00475 ' 000000 

NIND: 

0 

INUMEEP  OF  INDICATORS 

00476  *  000406  * 

I  TAB-  1 

I ADDP  OF  IND.  ADDRESSES 

00477*000000 

AM  ASK: 

0 

I  ADDP  OF  MASKS 

00500 ’ 000000 

AVOP.D: 

0 

I  ADDP  OF  VOPDS 

0050 1  *  0200 1 2- 

LDA  0,ITXT+5 

00502*006003$ 

JSP  6>ATYPE 
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00503 

•006016$ 

0050A 

'  000000 

TOTAL 

00505 

■  000000 

00506 

•000000 

COUNT 

00507 

•  020014- 

00510 

•006003$ 

005  1  1 

'024775 

00512 

•006014$ 

00513 

•002702 

005  14 

•006440 

TXT  1 : 

00515 

•005012 

<  1 2>< 

00516 

•005012 

<  1 2>< 

005  17 

*042040 

D 

00520 

•052101 

AT 

00521 

•020101 

A 

00522 

•047101 

AN 

00523 

•04610 1 

AL 

00524 

•051531 

YS 

00525 

•051511 

I  S 

00526 

•  043040 

F 

00527 

•051117 

OR 

00530 

'051040 

P 

00531 

•020124 

T 

00532 

•054  105 

EX 

00533 

•042520 

PE 

00534 

•044522 

RI 

00535 

•042515 

ME 

00536 

•052  116 

NT 

00537 

•047040 

N 

00540 

•0271  17 

0. 

00541 

•000040 

* 

00542 

•006440 

TXT  2: 

00543 

•020012 

<  12> 

0054A 

•052523 

SU 

00545 

•045102 

BJ 

00546 

•041505 

EC 

00547 

•020124 

T 

00550 

•047516 

NO 

00551 

•020056 

•  . 

00552 

•000000 

* 

00553 

•006440 

TXT  3  s 

00554 

•005012 

<  12>< 

00555 

*040440 

A 

00556 

•040516 

NA 

00557 

•0545  14 

LY 

00560 

'044523 

SI 

00561 

•020123 

S 

00562 

•054502 

BY 

00563 

'041040 

B 

00564 

•047514 

LO 

00565 

•045503 

CK 

00566 

•037523 

S? 

00567 

’ 024040 

C 

00570 

•024461 

1) 

00571 

•054440 

Y 

00572 

•051505 

ES 

00573 

•024040 

( 

00574 

•024462 

2) 

00575 

•047040 

"'N 

J  SR  ecu  EVE 
:  0 
0 

:  0 

L  DA  <5j  ITXT+7 
J SR  @ATYPE 
L  DA  1, COUNT 
JSF  §  ABM  DC 
JMP  eTEHP+3 

.  TXT  *  <  15> 

1 2> 

1 2> 


.TXT  *  <  15> 


.  TXT  *  <  1  5> 
1  2> 


i DO  DIVISION 

;  SINGLE  SPACE 

J PRINT  DATA  COTNT 
;  EXIT 
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00576 
00577 
0  0600 
00601 
00602 
00603 
00604 
00605 
00606 
00607 
006  10 
006  1  1 
00612 
00613 
00614 
00615 
006  16 
006  17 
00620 
0062  1 
00622 
00623 
00624 
00625 
00626 
00627 
00630 
00631 
00632 
00633 
00634 
00635 
00636 
00637 
00640 
00641 
00642 
00643 
00644 
00645 
00646 
00647 
00650 
00651 
00652 
00653 
00654 
00655 
00656 
00657 
00660 
00661 
0  0662 
00663 
00664 ' 
00665 
00666 
00667 
00670 
00671 


'020117  0 

000000  * 

006440  TXT4:  .TXT.*  <  1 5> 
-020012  < 1 2> 

-046102  BL 
041517  OC 
020113  K 
044523  SI 
042532  ZE 
036440 
037440  ? 

000040  * 

006440  TXT 5:  .TXT  *  <  1  5> 
005012  < 1 2>< 1 2> 

040440  A 
040516  M A 
0  54514  LY 
044523  SI 
020123  S 
054502  BY 
041040  E 
047514  LO 
045503  CK 
020123  S 
005015  <  1  5><  1 2> 

041040  B 
047514  LO 
045503  CK 
047040  N 
027117  0. 

000040  * 

005015  TXT 6:  . TXT  *< 1 5> <  1 2> 

005012  <  1 2><  1 2> 

053117  OV 
051105  ER 
046101  AL 
020114  L 
04710  1  AM 
046101  AL 
051531  YS 
051511  IS 
005015  < 1 5>< 1 2> 

020012  < 1 2> 

020040 
053117  OV 
051105  ER 
046101  AL 
020114  L 
052122  RT 
020040 
020040 
047040  N 
020040 
041440  C 
051117  OR 
042522  RE 
052103  CT 
05104  0  P. 

020124  T 
020040 
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00672  *0200/10 
00673  *  020 1 1 6  N 
00674*020040 
00675*020040 
00676 ' 05 1105  ER 
00677*047522  PO 
00700*020122  R 
00701*052122  RT 
00702*020040 
00703*020040 
00704*047040  N 
00705*005015  < 1 5><  12> 

00706*000012  <12>* 

00707*005015  TXT7:  . TXT  *<  1 5><  12> 

00710*005012  < 12>< 12> 

00711*047101  m 
00712*046101  PL 
00713*051531  YS 
00714*051511  IS 
00715*041040  B 
00716*020131  Y 
00717*052123  ST 
00720*046511  IM 
00721*046125  UL 
00722*006511  I < 1 5> 

00723*005012  <  1 2>< 1 2> 

00724*051440  S 
00725*044524  TI 
00726*020115  M 
00727*020040 
00730*053117  OV 
00731*051105  ER 
00732*046101  PL 
00733*020114  L 
00734*052122  FT 
00735*020040 
00736*020040 
00737*047040  N 
00740*020040 
00741*041440  C 
00742*051117  OR 
00743*042522  PE 
00744*052103  CT 
00745*051040  R 
00746*020124  T 
00747*020040 
00750*020040 
00751*020116  N 
00752*020040 
00753*020040 
00754*051105  EP 
00755*047522  PO 
00756*020122  P. 

00757*052122  PT 

00760*020040 

00761 *020040 

00762*047040  M 

007  63 ' 0050  1  5  <  1  5><  1 2> 

00764*000012  <12>* 

00765*005015  TXT8 :  . TXT  *< 1 5> <  1 2> 
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00766 ' 0050 1 2  <  12><  I2> 

00767  *  047 10  1  AN 
00770  *  046 101  AL 
00771*051531  YS 
00772*051511  IS 
00773  *  04 1 040  B 
00774 ’ 020 1 3 1  Y 
00775*047506  FO 
00776*042522  PE 
00777*042520  PE 
01000*044522  PI 
01001*042117  OD 
01002*006523  S< 1 5> 

01003*005012  < 12>< 12> 

0 1 004*020040 
01005*043040  F 
01006*020120  P 
01007*020040 
01010*053117  OV 
01011*051105  EH 
01012*046101  AL 
01013*020114  L 
01014*052122  P.T 
01015*020040 
01016*020040 
01017*047040  N 
0 1020*020040 
01021*041440  C 
01022*051117  OP 
01023*042522  PE 
01024*052103  CT 
01025*051040  R 
01026*020124  T 
01027*020040 
0 1 030’ 020040 
01031*020116  N 
0 1032*020040 
0 1033*020040 
01034*051105  EH 
01035*047522  HO 
01036*020122  R 
01037*052122  RT 
01040*020040 
01041 *020040 
01042*047040  N 
01043*005015  <  1  5>  <  1 2> 

01044*000012  <  12>*~ 

01045*005015  TXT9:  . TXT  *< 1 5><  1 2> 

01046*005012  <  1  2><  1 2> 

01047*047101  AN 
01050*046101  AL 
01051*051531  YS 
01052*051511  IS 
01053*041040  E 
0 1 0  54 ' 020  1  3  1  Y 
01055*052123  ST 
01056*046511  IM 
01057*046125  UL 
0  1060*  020  1  1  1  I 
01061*020130  X 
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01062* 

047506 

FO 

0  1063  * 

042522 

P.E 

01064  * 

042520 

PE 

01065* 

044522 

PI 

01066* 

0421  17 

OD 

0  1067  * 

006523 

S<  1  5> 

01070’ 

0050  12 

<  1 2><  1 2> 

01071* 

051440 

S 

01072* 

044524 

TI 

01073’ 

020  1  15 

M 

01074* 

020040 

01075* 

050106 

FP 

01076* 

020040 

01077 ’ 

047440 

0 

01  100* 

042526 

VE 

01101* 

040522 

PA 

01102* 

046114 

LL 

01103’ 

051040 

R 

01104’ 

020124 

T 

01105’ 

020040 

01106* 

020040 

01107’ 

020  1  16 

N 

01110’ 

020040 

01111* 

047503 

CO 

01112* 

051 122 

PR 

01113’ 

041505 

EC 

01114* 

020124 

T 

01115’ 

052122 

RT 

01116’ 

020040 

01117* 

020040 

01120’ 

047040 

N 

01121’ 

020040 

01122* 

020040 

01123* 

042440 

E 

01124* 

051 122 

PR 

01125’ 

051117 

OR 

01126’ 

051040 

R 

01127’ 

020124 

T 

01130* 

020040 

01131’ 

020040 

01132’ 

006516 

N<  1  5> 

01133* 

005012 

< 1 2><  1 2> 

01134’ 

000000 

* 

01135’ 

020040 

TXT  10: 

01136* 

000040 

* 

01137’ 

005015 

TXT  1 1 : 

0  1  140 

000000 

* 

01141* 

000040 

TXT  1 2 : 

01  142’ 

005015 

TXT  13: 

01143’ 

052040 

•T 

01144* 

052  117 

OT 

0  1145 

046101 

AL 

01146’ 

042440 

E 

01147’ 

051  122 

RP 

01150’ 

051117 

OP 

01151’ 

020123 

S 

01152’ 

042522 

PE 

01153* 

052522 

RU 

01154' 

020 1 16 

N 

01155' 

020075 

= 

0  1156 

'000040 

* 

TXT  * 

TXT  *<  1  5> <  12 

TXT  *  * 

TXT  *<  1 5>  <  12 
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i  SUBROUTINE  CARVE  --  ROUTINE  TO  DIVIDE  A 
;  DOUBLE  PRECISION  FIXED  POINT  NUMBER  BY 
;  A  SINGLE  PRECISION  FIXED  POINT  NUMBER* 

iyielding  and  printing  out  a  floating 

;  POINT  NUMBER  IN  ORDINARY  DECIMAL 

*  NOT  ATI  ON 

;***NOTE:  CARVE  DOES  NOT  SAVE  THE 

;  QUOTIENT*  ONLY  PRINTS  IT  OUT 

J 

}  CALL  TO  CARVE  IS: 

;  J  SR  §CL  EVE 

;  HIGH  ORDER  DIVIDEND 

J  LOW  ORDER  DIVIDEND 

i  DIVISOR 

*  RETURN 

* 

J 

; >>>> >USES  SUBROUTINES  PROQ  &  INOUT 
* 

; PORTIONS  OF  THIS  ROUTINE  ARE 
; BASED  ON  THE  ROUTINE  BNDEC 
I  FOUND  IN  THE  PUBLICATION* 

;"HOW  TO  USE  THE  NOVA  COMPUTERS” 

*' COPYRIGHT  19  71*  DATA  GENERAL  CORPORATION 
J REPRODUCED  BY  PERMISSION 

J 

i  G.M.  OLSON 

*•  19  MARCH  1973  (A) 

•  TITL  CARVE 
.ENT  CL  EVE 

.EXTD  APUTC*  AL  G AE*M ONK 
.  ZREL 


00000-000000* 

CL  EVE: 

CUT 

♦  NPEL 

00000  *  020444 

CUT: 

L  DA 

0*  THREE 

*  SAVE  (AC 3)  +  3 

00001 • 163000 

ADD 

3*  0 

;for  return 

000 0S  *040450 

STA 

0*  SPLIT 

00003  *02 1400 

LDA 

0*  0'*  3 

;get  high  order  dvd. 

00004  *  02540 1 

L  DA 

1*  1*3 

J  GET  LOV  ORDER  DVD. 

00005*031408 

LDA 

2*  2*  3 

*  GET  DIVISOR 

00006*050431 

STA 

2*  DIVSR 

;  STORE  ” 

00007*006002$ 

J  SR 

@AL  GAE 

;  DIVI  DE 

00010*040424 

STA 

0*  REND 

;  STORE  REMAINDER 

000  1  1 *02043 1 

LDA 

0*  Z ERO 

*  SET  INDICATOR  TO  PRINT 

000  12*040423 

STA 

0*  BLUR 

JLEADING  BLANKS 

00013* 121000 

MOV 

1*  0 

00014*004445 

J  SR 

SLICE 

1  PRINT  INTEGRAL  PART 

000  15*020433 

LDA 

0*  PUN  CT 

* 

000 16*00600  IS 

J  SR 

3APUTC 

;  PRINT  DECIMAL  POINT 

00017*020426 

LDA 

0*  FOUR 

;SET  COUNTER  TO  4 

00020*04042  1 

STA 

0*  SHARP. 

00021 *024413 

POINT: 

LDA 

1*  REND 

J  GET  REMAINDER 

00022*030522 

LDA 

2*  TEN  S+  3 

I  GET  CONSTANT  10 

00023*006003$ 

J  SR 

§MONK 

*  MULT  I  PLY 

00024*030413 

LDA 

2*  DIVSR 

;get  divisor 

00025*006002$ 

J  SR 

@AL  GAE 

*•  DIVIDE  AGAIN 

00026*040406 

STA 

0*  REND 

;  SAVE  REMAINDER 
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00027 

•  121000 

MOV 

1,  0 

00030 

•004431 

J  SR 

SLICE 

}  PRINT  NEXT  DECIMAL  PAPT 

00031 

•014410 

DSZ 

SHARP 

;  DECREMENT  COUNTER 

00032 

•000767 

JMP 

POINT 

>*  REPEAT 

00033 

•  0024  17 

JMP 

©SPLIT 

i  SPLIT  TO  CALLING  ROUTINE 

00034 

•000000 

REND: 

0 

00035 

•  000  000 

BLUR: 

0 

00036 

•000000 

DICE: 

0 

00037 

•000000 

DIVSP: 

0 

00040 

•  000000 

LAST: 

0 

0004  1 

•000000 

SHARP: 

0 

00042 

•  000000 

EERO: 

0 

00043 

•000001 

ONE: 

1 

00044 

•  000003 

THREE: 

3 

00045 

•  000004 

FOUP: 

4 

00046 

•000005 

FIVE: 

5 

00047 

'  000060 

C60: 

60 

00050 

•000056 

PUN  CT : 

56 

00051 

•  000040 

ELANK: 

40 

000007 

SPLIT: 

.  BLK 

7 

J  ROUTINE  TO 

PRINT  DECIMAL  NUMEEPS 

; WITHOUT  LEADING  ZEROES 

(BASED  ON 

i BN DEC) 

,  RIGHT  JUSTIFIED 

00061 

•054772 

SLICE: 

STA 

3,  SPLIT+  1 

00062 

•034760 

L  DA 

3,  ZERO 

,*SET  INDICATOR  TO 

00063 

•054753 

STA 

3, DICE 

; SUPPRESS  LEADING  ZEROES 

00064 

•034762 

L  DA 

3,  FIVE 

>  SET  PLACE  COUNT 

00065 

•054753 

STA 

3j  L  AST 

00066 

•034460 

LDA 

3, INST 

00067 

•05440  1 

STA 

3,  .  +  1 

00070 

•000000 

MINCE: 

0 

00071 

•020756 

LDA 

0,  C60 

00072 

•  146443 

SUBO 

2j  1,  SNC 

00073 

•  101401 

INC 

0,  0,  SKP 

00074 

•  147001 

ADD 

2,  1,  SKP 

00075 

'000775 

JMP 

.-3 

00076 

'050757 

STA 

2,  SPLIT+3 

J SAVE  (AC 2) 

00077 

•01474  1 

DSZ 

LAST 

J  DECREMENT  PLACE  COUNT 

00100 

'000402 

JMP 

.  +2 

00101 

•000424 

JMP 

SPOIL 

00102 

'034734 

LDA 

3,  DICE 

JGET  INDICATOR 

00103 

•030737 

LDA 

2,  ZERO 

;and  ZERO,  CHECK 

00104 

•  1564  14 

Sub  # 

2*  3,  SZR 

;  IF  EQUAL 

00105 

•000420 

JMP 

SPOIL 

JNOT  EQUAL  --  PRINT  CHAP.. 

00106 

•030735 

LDA 

2,  ONE 

00107 

•034740 

LDA 

3;  C60 

00110 

•  1  16414 

SUB# 

0,  2,  SZR 

; CURRENT  DIGIT  0? 

00111 

'0004  13 

JMP 

SPOIL-  1 

INO,  CHANGE  INDICATOR 

00112 

•  034723 

LDA 

3,  BLUR 

001  13 

•030727 

LDA 

2*  Z  ERO 

001  14 

•  1564  14 

SUB# 

2j  3j  SZR 

001  15 

•000405 

JMP 

POKE 

i DO  NOT  PRINT  LEADING  ZEROES 

00116 

•  040737 

STA 

0,  SPLIT+3 

00117 

•020732 

L  DA 

0,  BLANK 

00120 

•  00600 1  £ 

J  SR 

©APUTC 

J  PRINT  LEADING  BLANK 

00121 

*020734 

LDA 

0,  SPLIT+3 

J RESTORE  (AC0> 

00122 

•030732 

POKE: 

LDA 

2,  SPLIT+2 

;restofe  ( AC2  > 
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00123*000410 

00124*050712 

00125*006001$ 

00126*030712 

00127*034713 

00130* 156415 

00131 *000405 

00 1 32  *030722 

00133*010735 

00134* 151203 

00135*000733 

00136*020705 

00137*040676 

00140*002713 

000012 
00141’ 023420 
00142*001750 
00143*000144 
00144*000012 
00145*000001 

000010 

00146*030451 


JMP  PAPE 
STA  2,  DICE 
SPOIL:  JSP.  §APUTC 

LDA  2, LAST 
LDA  3.,  ZERO 
SUB#  2,3,  SNR 
JMP  PARE+3 
LDA  2,  SPLIT+2 
PARE:  ISZ  MINCE 

MOVR  2,  2,  SNC 
JMP  MINCE 
LDA  0,  ON E 
STA  0,  BLUR 
JMP  @SPL  I  T+  1 


; PRINT  CHARACTER 
} CHECK  IF  LAST 
,*  CHARACTER 


;back  into  bndec 


. RDX  1 0 
TENS:  10000 

1000 
100 
10 
1 


.RDX  8 

INST:  LDA  2,  .  +TEN  S-M  INCE 

.END 
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J  UNSIGNED  DIVIDE,  M1*LTI  PLY 


00000-00002 1 '  MONK: 
00001-000022'  NUN: 
00002-00000  1'  ALGAE: 
00003-000000*  AMOEE: 


,*COPYPIGHT  1969,  DAT A.  GEMEPAL  COPPOPATION 
i  PEPPODT'CFD  EY  FEPMISSIOM. 

,*  ADAPT FD  pPOM  DATA  GENFPAL 

;  MATH  PONTINE  PACKAGF  EY 

;  G.M.  OLSON 

;  20  MOVEMEEP  1972  (B) 

.TITL  PPOO 

.ENT  MONK,  AMOEE,  N  I’M,  ALGAE 

.  Z  PEL 

♦  MPYt' 

•  MPYA 
.DINf 
.  DINI 

.NPEL 


00000 ' 1  0240  0 

.  DI"I : 

SUE  0, 0 

INTEGEP  DIVIDE,  CLEAR  AC0 

0000 1  ' 0544  1  6 

.  DINT’: 

STA  3, . CC03 

1 

SAVE  AC3 

00002* 142432 

SUEZ#  2,  0,  SZC 

) 

TEST  FOP  ON’FPFLON 

00003*000412 

JMP  . CC99 

J 

SET  CAPPY  AND  PETVPM 

00004  *  0344  14 

LDA  3,  .  CC20 

9 

16  I  TEPATI  OMS 

00005' 125120 

MONZL  1,  1 

» 

9 

SHIFT  LOU  DINIDEND 

00006* 101100 

.  CC98 : 

MOTT,  0,0 

9 

SHIFT  HIGH  DIVIDEND 

00007* 142412 

St'B#  2,0,  SZC 

9 

DOES  DUN  SOP  GO  IN? 

00010* 142400 

SUE  2,0 

9 

YES 

0001  1 ’ 125100 

MOVL  1,  1 

9 

SHIFT  LOU  DIVIDEND 

00012* 175404 

INC  3,3,  SZP 

» 

9 

CHFCK  COT’NT 

000 1 3  *  000773 

JM-P  .  CC98 

• 

9 

NOT  DONE 

00014* 176441 

SUEO  3,  3,  SKP 

i 

DONE  ,  CLEAP  CAPPY 

00015' 176420 

.  CC99 : 

SUEZ  3,3 

• 

j 

SET  CAPPY 

00016' 002401 

JMP  @. CC03 

* 

PETVPN 

00017*000000 

.  CC03: 

0 

j 

sane  AC 3 

00020’ 177760 

.  CC20: 

-20 

j 

-  16  DECIMAL 

00021  *  102460 

.MPYU: 

SUBC  0,0 

j 

QLEAP  ACO,  DON'T  DI  STUPE 

9 

9 

CAPPY 

00022*05441 1 

.MPYA: 

STA  3, . CE03 

9 

SAVE  AC 3 

00023*03441 1 

LTA  3, .  CB20 

9 

9 

16  TIMES  THPt’  LOOP 

00024 ' 125203 

.  CE99 : 

MOMP  1,1,  SNC 

9 

CHECK  NEXT  MULTIPLIED  BIT 

00025' 101201 

MOVP  0,  0,  SKP 

9 

0,  ^ J n S T  SHIFT 

00026 ' 143220 

ADDZP  2,0 

9 

J 

1,  ’ADD  M1*LTIPLI  CAND  AND  SH 

00027 ’ 175404 

INC  3,  3,  SZP 

J 

CHECK  FOP  1 6TH  TIME  THPU 

00030*000774 

JMP  . CE99 

9 

J 

NO,  CONTINUE 

00031  *  125260 

MOVCF  1,  1 

9 

YES,  SHIFT  LAST  LO^  8J.T 

9 

9 

(NOTE  IT  VAS  COMPLEMENTED  ■ 

9 

9 

FINAL  INC) 

00032  *  00240 1 

JMP  §.  CEC3 

9 

RETURN 

00033*000000 

.  CB03: 

0 

9 

RETURN  ADDPESS 

00034 ' 1 77760 

.  CE20: 

-20 

9 

-  16  DECIMAL 

;  SUBROUTINE  DPACC  --  ACCUMILATES  THF.  SIM 
J  OF  A  SEP  I ES  OF  AFEITFAPY  SINGLE  FPECISION 
J  VALUES  IN  A  DOtTEL E  PPECISION  ACCUMUL ATOP. 
'ALLOUS  optional  incoppopation  of  selectiue 

;  ACCTMULATION  OUT  OF  THE  USER'S  DATA  APPAY 

;by  means  of  a  set  of  indicator  arrays  that 

J  PARALLEL  THE  STRUCTURE  OF  THE  DATA  APPAY. 

;EOTH  a  MASK  AND  a  TEST  VOPD  APE  used 

;to  select  data  on  the  basis  of  a  given 
;  indicator  affay,  and  vhen  mope  than  one 

J INDICATOR  IS  USED  THE  SELECTION  IS  BASED 
;ON  ALL  INDICATORS  S IMtL TAN EOUSLY,  I  .  E. , 

;the  individual  yes-no  DECISIONS  ape  anded, 

J SO  that  a  datum  must  pass  all  tests  before 

JIT  VILL  EE  ACCUMULATED. 

J  THE  CALLING  SEQUENCE  IS: 

;  jsf  @quacc 

J  ADDPFSS  OF  HIGH  OPDEP  vOPD  FOP  D.P. 

J  SUM  (FOP  OUTPUT) 

J  ADDPESS  OF  DATA  COUNT  (FOP  OUTPUT) 

J  ADDPESS- 1  OF  DATA  APPAY 

J  SIZE  OF  DATA  ArPAY 

J  NUMEEF  OF  INDICATOR  ARRAYS 

J  ADDPESS- 1  OF  ADDPFSS- 1 S  OF  INDICATOP 

J  APPAYS 

J  ADDRESS- 1  OF  TAEL E  OF  INDICATOR  MASK 

J  ADDRESS- 1  OF  TABLE  OF  INDICATOP  VOPD 

J  FETUFN 

9 

;  NOTE:  IF  NUMBER  OF  INDICATOP  ARRAYS  IS 

JZEPO,  ENTIFE  DATA  APPAY  IS  ACCUMULATED. 

J  RELEVANT  AP  GUM  ENTS  IN  THE  SUBROUTINE  CALL  MUST 
JEE  FILLED  WITH  DUMMY  VALUES.  THIS 
J  ROUT  IN  E  AL  VAY  S  SETS  THE  D.P.  SUM  TO 

JZEPO  ON  ENTRY. 

♦ 

9 

J  G.M.  OLSON 

J  5  DECEMEEP  1972  (A) 


.TITL  DPACC 
.  ENT  QUACC 

.  ZPEL 

00000-000000*  QUACC: 

FOPTH 

00001-000125*  FLASH: 

.  DADD 

•  NPEL 

00000*030507  FORTH: 

L  DA  2, El GHT 

J  SET  PETUFN  AT 

0000  1  *  1 73000 

ADD  3,2 

J ( AC3 )  +  8 

00002*050500 

STA  2, BACK 

00003  *031400 

L  DA  2,  0,  3 

J STOFE  ADDP.  OF 

00004  *  050464 

STA  2,  ASUM 

J  D.  P.  SUM 

00005*024500 

L  DA  1,ZEP0 

JZEPO  D.P.  SIM 

00006*045000 

STA  1,0,2 

00007 ' 04500  1 

STA  1,  1,2 

00010*044506 

STA  1 , VO  PK 

JZEPO  COUNTER 

000 1 1 *044477 

STA  1,  TEMCT 

JZEPO  DATA'  COUNT 

00012*021401 

L  DA  0,  1, 3 

J STORE  ADDP.  OF 

00013*040476 

STA  0,  ACT 

J  DATA  COIMT 
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f/>  {n 


00014 

’021402 

lda 

0,2,  3 

}  STORE  ADDP. -  1 

00015 

•040020 

STA 

0,  20 

i  OF  DATA  APPAY 

e00 16 

'021403 

LDA 

0,  3,  3 

J STORE  SIZE  OF 

000  17 

•040464 

STA 

0,  SIZE 

,*  DATA  APPAY 

00020 

•  021404 

LDA 

0,4,3 

JSTOPE  NUMEEP  OF 

00021 

•040471 

STA 

0,  GNAPR 

,*  INDICATOR  APPAYS 

00022 

•021405 

LDA 

0,  5,  3 

ISTOFELOC.  OF 

00023 

•040470 

STA 

0,  APTAE 

5TAELE  OF  IND.  ADDP. 

00024 

•02  1406 

LDA 

0,  6,  3 

} STORE  LOC.  OF 

00025 

•040467 

STA 

0,  AMTAE 

;mask  table 

00026 

•021407 

LDA 

0,7,  3 

J  STOPE  LOC.  OF 

00027 

•040466 

STA 

0, AVTAE 

,‘VOPD  TAELE 

00030 

•010466 

NACC: 

I  SZ 

VOF.K 

,‘INCF.  COUNTER 

00031 

•020454 

LDA 

0,  ZEPO 

,*SET  SKIP  IND.  TO  0 

00032 

•040452 

STA 

0,  IND 

00033 

•024457 

LDA 

1,  GNAPP 

} GET  NO.  OF  IND.  APPAYS 

00034 

’  106415 

SUB#  0,  1,  SNF 

,*  =  0? 

00035 

•000424 

JMP 

ACCUM 

,‘JUMP  TO  ACCVM 

00036 

•044461 

STA 

1, VOPK+ 1 

; STOPE  NO.  IND. 

00037 

•020454 

LDA 

0, APTAE 

,'TPANSFEP  ADDP.  OF 

00040 

•040021 

STA 

0,  21 

JPAPAMETEPS  TO 

0004  1 

•020453 

LDA 

0,  AMTAE 

i AUTO  INC.  LOCS 

00042 

•040022 

STA 

0,  22 

00043 

•020452 

LDA 

0,  AVTAE 

00044 

•040023 

STA 

0,  23 

00045 

•022021 

OUFI  Es  • 

LDA 

0,  @21 

J  GET  NEXT  IND.  ADDP. 

00046 

•030450 

LDA 

2, VOFK 

I  GET  CURRENT  COUNT 

00047 

•  1  13000 

ADD 

0,  2 

j ADD  TO  GET  IND.  VALUE 

00050 

•021000 

LDA 

0,  0,  2 

00051 

•026022 

LDA 

1,  @22 

ILOAD  IND.  MASK 

00052 

•  123400 

AND 

1,0 

,‘MASK 

00053 

•026023 

LDA 

1,  @23 

ILOAD  IND.  VORD 

00054 

•030432 

LDA 

2,  ONE 

00055 

•  122404 

SUB 

1,0, SZP 

JIND.  =  VO  PD? 

00056 

•050426 

STA 

2,  IND 

;NO  -  SET  ACCUM.  SKIP 

00057 

•014440 

DSZ 

VOPK+ 1 

;  CHECK  IF  THROUGH 

00060 

•  000765 

JMP 

OUFI  E 

00061 

•026020 

AC CUM: 

LDA 

1,  @20 

J  GET  NEXT  DATUM 

00062 

•020423 

LDA 

0,  ZERO 

00063 

•014421 

DSZ 

IND 

;  CHECK  IND.  SKIP 

00064 

•000402 

JMP 

.  +2 

00065 

•000407 

JMP 

A SUM +4 

;  skip  ac cm 

000  66 

•010422 

I  SZ 

TEMCT 

I  INC.  DATA  COUNT 

00067 

•006001- 

JSP 

©FLASH 

,*  ACCUMULATE 

00070 

'  000000 

A  SUM: 

0 

0007  1 

•030777 

LDA 

2,  ASUM 

I  TRAN SEEP  NEV  SUM 

00072 

•041000 

STA 

0,  0,  2 

;to  storage 

00073 

•  04500  1 

STA 

1,  1,  2 

00074 

•014407 

DSZ 

SIZE 

i  CHECK  IF  DONE 

00075 

•  000733 

JMP 

NACC 

00076 

•024412 

LDA 

1, TEMCT 

;  TRANSFER  DATA  COUNT 

00077 

•0304  12 

LDA 

2,  ACT 

00  1  00 

’  045000 

STA 

1,  0,  2 

00101 

'002401 

JMP 

@BACK 

00  102 

•000000 

EACK: 

0 

00103 

•000000 

SIZE: 

0 

00104 

•000000 

IND: 

0 

00105 

•  000000 

ZERO: 

0 
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00 1 06 '00000  1 

ONE: 

1 

00 107  *  0000  1 0 

EIGHT: 

10 

00 110' 000000 

TEMCT : 

0 

00111 ’000000 

ACT: 

0 

001 12 '000000 

GNARR: 

0 

00113' 000000 

ARTAE: 

0 

001 1 A  1 00000  0 

AMTAE: 

0 

001 1 5 ’ 000000 

AWTAB: 

0 

000007 

VOFK: 

.  BLK 

7 

J 

DATA 

GENERAL  POUTINE  FOP  D.  P.  ADDITION 

J 

COPYRIGHT  1969 

,  DATA  GENERAL  CORPORATION 

J 

REPRODUCED  EY 

PERM  I  SSI  ON 

001 25 ' 0544 1 A 

.  DADD: 

STA 

3, • BD03 

.  J  SAVE  PETI’RN 

00 1 26 '010413 

I  SZ 

.  BD03 

;  BUMP  PAST  ADDRESS  CONSTANT 

00127*05041 1 

STA 

2, . ED02 

!  *SAVE  AC  2 

00 1 30 ' 035400 

L  DA 

3,  0,  3 

J  ADDRESS  OF  D2  • 

00131 '031400 

L  DA 

2,  0,  3 

J  HIGH  ORDER  OF  D2 

00132*035401 

LDA 

3,  1,3 

;  LOV  ORDER  OF  D2 

00133 ' 167022 

ADDZ 

3,  1,  SZC 

;  LOV  OPDEP  ADD 

00134 ’  101400 

INC 

0,  0 

i  GAPPY  TO  HIGH  OPDEP 

00135’ 143000 

ADD 

2,  0 

,*  HIGH  ORDER  ADD 

00 1 36 ’ 030402 

LDA 

2,  .  BD02 

;  *  RESTORE  AC2 

00137 ’002402 

JMP 

BD03 

;  AND  RETUPN 

00 140 ’ 000000  *  BD02:  0  ;  *SAVE  AC2 

00 1 A 1  *  000000  . BD03 :  0  i  SAVE  RETUFN 

.  END 
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RTLAB  is  a  package  of  relocatable  assembly-language  subroutines  for  the  design, 
control ,  and  analysis  of  behavioral  experiments  on  the  Data  General  Corporation 
NOVA  family  of  computers.  It  was  originally  designed  for  use  in  reaction  time 
research  but  is  readily  adaptable  to  any  discrete-trial  task.  RTLAB  accepts  design 
parameters  from  the  experimenter  for  a  given  experiment  and  then  produces  an 
appropriately  randomized  and  counterbalanced  set  of  trials  for  presentation  to  a 
subject.  During  an  experimental  session  RTLAB  controls  the  presentation  of  stimuli, 
the  acceptance  and  scoring  of  responses,  and  all  of  the  timing  and  input-output 
constraints  associated  with  control  and  data  acquisition.  Its  current  design  does 
not  allow  for  time-sharing  among  more  than  one  subject  station.  A  history  of  the 
experiment  is  saved  for  later  analysis  and  transfer  to  storage  media.  User  modifica¬ 
tions  of  any  of  the  details  of  these  operations  is  facilitated  by  the  organization 
of  RTLAB  into  subroutine  modules.  The  organization  of  RTLAB  and  its  use  are  presented 
along  with  sufficient  documentation  of  the  routines  to  allow  user  modification  where 
appropriate . 
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